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IDENTIFICATION if: | 

PRODUCT CODE:  MAINDEC-11-DZTAA-C-D : : 
PRODUCT NAME: TAL LOGIC TEST (PART 1) a 
DATE REVISED: 21 JUNE 76 
MAINTSINER: DIAGNOSTIC ENGINEERING 
AUTHOR: JIM LACEY 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
CQUIPRENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 

ICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 
DIGITAL FQUIPHENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY’ DIGITAL. 


COPYRIGHT (C) 1973,1976 BY DIGITAL EQUIPMEN CORPORATION 





-4 
»D 
~ 
o~- 
a 


~er 


Oe TT TT cL 


% 


BSIIRALIANLISEVERLERE ESOT sELSH B 


LOGIC TEST (PART 1) 


A 





MAINDEC-11-DZTAA-C MACY11 27(732) 25-SEP-76 11:04 PAGE 3 


CONTENTS 


ABSTRACT 


5 eee? S 
5-4 SOUETENT 


2 STORAGE 
2.3 PRELIMINARY PROGRAMS 
LOADING PROCEDURE 
STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 
4.2 STARTING 

4-3 PROGAR 8 OPERATOR ACTION 
OPERATING PROCEDURE 

.1 OPERATIONAL SWITCH serfs, 
5:2 SUBROUTINE ABSTRACTS 
ERRORS : 
RESTRICTIONS : 


M OUS 

8.1 EXECUTION TIME 
8.e Breck POINTER 
8.3 S COUNTER 

8.4 ITERATIONS 

8.5 SPECIAL REGISTERS 


PROGRAM DESCRIPTION 


a+ 2 eee ee ee 





ee ee ee ee ee — em ne rer ree ne ret 


LOGIC TEST (PART 1) 


Rs 


BOLSE IR REBELS bp 
J “vO 


Co ae te ete ST 
SRR Baa NTin cur OD SNER LOE She GRU 


MAINDEC-11-DZTAA-C 


2.2 


2.3 


4.2 


ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS 
THAT CHECK THE TA11 FOR PROPER OPERATION. 


REQUIREMENTS 
EQUIPMENT 


Are oven eee FE CTYPE. OR BT HUT ARE REGISTER 


STORAGE 
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THIS PROGRAM REQUIRES APPROX. 4K STORAGE. 
PRELIMINARY PROGRAMS 


NONE 


LOADING PROCEDURE 


ST PROCEOURE FOR LOADING .ABS TAPES 
OR CASSETTE TAPE. 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 


NORMAL STARTI 


NG ADDRESS 
T DRIVE(S) BEFORE STARTING TEST 
"FOR NANDAL 


SELEC 
att de 


SSES BEFORE STARTING TEST 


READ. CONTINOUS BLOCKS. OF DATA 


Stabe Boas Bb o's PP oe 
SEB TCE Mt fo 
BACK SPACE FILE GAPS 


URiTE SUITCH REGISTER ON TAPE FROM BOT TO EOT 
READ FROM FROM BOT TO OT 
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4.3 


4.3.1 


4.3.1.1 


4.3.2 


PROGRAM & OPERATOR ACTION 

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

LOAD A WRITE pened enn IN BOTH DRIVES 

REWIND BOTH DRIVE 

CSP IVE (Be sect 5.0 

Ma noe LOOP & TTY BELL WILL RING ONCE EVERY 

Heit NOTELI LF USING ae 3 ene REGISTER 
“SWR=XXXXXX NEW=" AFTER TYPING 

THe NAM NAME OF Te P PROGRAM 
DRIVE SELECTION 


arPaT ine THe fee Proce at 200 coo WELL Ree RESULT Tt PUT OMATIC 


NOTE: a (OAD TEI 15 ¢ CasseTTE ute Ma peat 


STARTING THE PROGRAM AT 204, 210, OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO Be TESTED. 


THE PROGRAM WILL TYPE “DRIVE(S)?”. 


EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING “A” AND/OR 
"B” FOLLOWEC BY A CARRIAGE RETURN. 


DRIVE SELECTION EXAMPLES 


pare te)S a a8 
DRIVE ( 2) ° 


Daive(s)? if e 


ADDRESS SELECTION 


SEU. ERR LE LY HET 


peeraTey aes, THE VECTOR ADORESS 


es ee oe 


THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
pags AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 


i. BUS SS OF THE CONTROL AND STATUS REGISTER (TACS) 
- VECTOR Ss 
3. PRIORITY LEVEL 


OPERATOR MUST RE WITH THE DESIRED PARAMETER 
eee ORR Fr, IAGE RETURN (WHICH IMPLIES LEAVE AS IS). 
L PARAMETERS HAVE BEEN DEFINED THE PROGRAM 


Oe me ere ee ee ee 
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WHICH TIME THE OPERATOR aPONSE S WITH AY” 
“CARRIAGE RETURN” FOR “YES” BNYT HING ELSE Is : RO 
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4.3.2.1 ADDRESS SELECTION EXAMPLES 


wo 


BBVFRLGOLS 


b-+b- 2b © b= pp G2 HB BH pp 


Bae eRe 


tururururururorfururu 
dae 0 a= | a hae foe fae oe Fn pe 


WONGDU£ WHO 


SIRI ONOS BONO RS 
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a ee ee ee 


paryest e. 


6 
Tagse177506 TADB=177502 VECTOR=000260 PRIORI TY=000300 


‘athe ait 2 A,B 
TACS? 470 


P 
ero TADB=177472 VECTOR=000260 PRIORITY=000300 


OPERATING PROCEDURE 
POI. ne ofa H SETTINGS wr ITCH 
RE Ist THEN A SOFTWARE SWITCH REGISTER IS ICH ALLO 
PE IP Ae SNS SIGS SS Te deolle ME Othe, 
ano ji CONTAINS ALL ONE 
REGISTER (LOC. 176) IS USED. 
CONTROL: 
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


) TYPE C THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
De a metas POINTS WITHIN THE 


2) OF THE COP TWARE SWITCH REGISTER) =XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 


3) AFTER THE ’*NEW=’’ HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TOBE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
Y NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 


ie cea Jo Tie FIRST KEY DEPRESSED THE SOFTWARE SWITCH 


REGISTER S WILL NOT BE CHANGED. 


B) IF A CONTROL U <ftU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. . 
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WITH SW<15:08>=0 THE PROGRAM WILL PRINT OUT ON 

ar CoF AND D On OF PALS TEST. BELL WILL RING 
He SuIYeH SETTINGS ARE: 

SW<15)=]... 


HCL =1:<LIMMIBTT ERROR TYPEOUTS 

eyc11)=1. INHIBIT ITERATI 

SWCD ah. RING BELT ON. Paes COMPLETE 
(hO0 21 LOOB BAYERSOR 

Sy<08>=1.. LOOP ON TEST AS PER SW<O7: 


‘~ 00> 
SW<07)=1...LOCK ON CURRENT DRIVE (ONLY VALID 
FOR STARTING ADDRESSES 220 THRU 250). 
SUBROUTINE ABSTRACTS 
SCOPE 
INE CALL (VIA AN IOT INSTRUCTION) IS PLACED BETWEEN 


THIS SUBROUT 
- EACH TEST IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
ADDRESS OF EACH “SLPADR”. AND “SLPERR” AS IT IS 


TEST IN LOCATION 
BEING ENTERED. > 
THIS ROUTINE SUPPORTS THE S/W SWITCH a FUNCTIONS 
TRAPCATCHER 

"42" = "HALT" SEQUENCE IS REPEATED FROM LOC. 0 TO LOC. 776 

fo CATCH _ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL 
HALT AT THE oahees TRAP VECTOR +2. 
ERROR 
THIS SUBROUT It CALL ner EMT INSTRUCTION) IS USED TO REPORT 
THIS ROUTINE saPPORTS THE A SWITCH REG FUNCTIONS 
IF PROCESSOR HALTS (BIT 15=1), OPERATOR 


RA 
CAN RESET S/W SWITCH REGISTER BY HITTING A 
“CONTROL G” <tG> BEFORE HITTING CONTINUE. 
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5.2.4 TRAP 
R OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION. 
FOLLOWING 13 THE CALLS USED AND THE LABEL OF THE STARTING 
ADDRES HE SUBROUTINES. 
5.2.4.1 TYPE (STYPE) 
ROUTINE TO TYPE AN ASCIZ STRING ON THE TTY 


THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS 
AFTER A LINE FEED. 


5.2.4.2 RDCHR (SRDOCHR) * 

READ A SINGLE ASCII CHARACTER FROM THE TTY 
5.2.4.3 ROLIN (SROLIN) 

READ AN ASCII STRING FROM THE TTY 
5.2.4.4 WAITREADY (WAIT.ON.READY) 

WAIT ON THE “TA11 READY” BIT TO SET 
5.2.4.5 WAITXFER (WAIT.FOR.XFER. REQ) 

WAIT ON THE “TA11 TRANSFER REQUEST” BIT TO SET 
5.2.4.6 STYPOC 
CHANGE A BINARY NUMBER TO OCTAL ASCII AND TYPE IT. 
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5.2.5 THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR 
5.2.5.1 STYPEC 

ROUTINE TO TYPE A SINGLE ASCII CHARACTER 
§.2.5.2 TYPERR 

THIS ROUTINE WILL TYPE THE ERROR MESSAGES 
5.2.5.3 SELORV 


THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S) 
ARE TO BE TESTED 


5.2.5.4 SELADR 
THE “Tats", “TADE AND VECTOR AND THE PRIORITY 10 OSE. 


5.2.6 THE FOL Ou ROUTINES ARE USED TO MAKE ADJUSTMENTS TO 
THE TUBO. BEFORE USING ANY OF THEM LOAD AND START 214. 





5.2.6.1 WFGSUB 


WRITE FILE GAPS FROM “BOT” TO “EOT™ 

START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE “WRITE GAP MONO” AND 
THE “WRITE DELAY MONO”. 


S.2.6.2 WRTSUB 
pf M1 CONTINUOUS BLOCKS OF DATA 
START AT 2c4 
WILL HALT THREE(3) TIMES 


THE PROGRAM 
TER EACH Te Te SD Oe co TINUE 
HALT 5 ~~~ SWR<7:0> = NUMBER OF BYTES PER BLOCK 


- (7:0) = PATTERN DESI 

--- (15:0) = T The TCH SETTINGS 
THIS ROUTINE CAN 0 my TIME MONO” 

USING SOFTWARE SWITCH REGISTER AF 





BAGH HALT ie cite WILL BE PROMPED 
OR THE Vi =XXX Neue 





LOGIC TEST (PART 1) 


TAl1 BASIC 
DZTAAC.Pil 
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5.2.6.3 RDSUB 
READ CONTINUOUS BLOCKS OF DATA 


Tas TEOUTNE CAN BE Wise TO ADJUST THE “SIGNAL MONO” 


5.2.6.4 WGPBLK 
WRITE A rh GAP AND A BLOCK OF DATA FROM BOT TO ECT 


THE PROGRAM WILL HALT THREE (3) TIMES 
ce Ter Ene ie Te Se ae prbee ContiMs 
et § — Bate, © eee BYTES PER 


RN DESIRED 
HALT 3 --- SWR<15:0> = OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE “WRITE GAP MONO” 
AND THE “GAP TIME MONO”. 
%* IF USING SOFTWARE SWITCH REGISTER AFTER 
EACH HALT OPERATOR WILL BE PROMPED 
FOR THE VALUE WITH “SWR=XXX NEW=" 


5.2.6.5 RGBLK f 
oe he © DATA OO A PILE OP f 
START AT 240 ' 


THIS ROUTINE IS USED AFTER “WRITE A BLOCK AND A FILE GAP” ROUTINE 
IT CAN BE USED TO ADJUST THE “SIGNAL MON". THE THRESHOLD POT” 


5.2.6.6 SFFGSB 
arnes Fe FORWARD FILE GAP FROM “BOT” TO “EOT™ 
START AT 244 
THIS ROUTINE - BE USED AFTER “WRITE FILE GAP” FOR LOW SPEED 
SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED). OR AFTER READ OR 
re A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
(SIGNAL MONO CAN BE CHECKED). 
5.2.6.7 BSFGSB 
BACK SPACE FILE GAP 
250 


THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE “SIGNAL MONO”. 
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5.2.7.1 SETBUF 


$.2.7.2 WRTBLK 


5.2.7.3 ROBLK 


5.2.7.4 NXTDRV 
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THE FOLLOWING SUBROUTINES ARE USED BY THE ADJUSTMENT 
ROUTINES 


SETUP BLOCK SIZE AND PATTERN 
WRITES A BLOCK OF DATA 
READS A BLOCK OF DATA - 


CHANGE DRIVE 
ERRORS 


THERE ARE @ NUMBER OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM. ont ae yg in A ‘ CALL TO 


oe ye ROUT Pas ene S NOT 
ge Taine TQ THE ERROR WILL BE 
WILL CONTAIN THE FOLLOWING: 











1. AN ERROR MESSAGE 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 


RESTRICTIONS 
BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 


CASSETTE IS LOADED IN THE DRIVE(S) TO BE TESTED AND IS WRITE 
ENABLED AND AT BEGINNING OF TAPE. 
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8. MISCELLANEOUS 
8.1 EXECUTION TIME 


Mi 3 FIRST PASS TAKES APPROXIMATELY 4S SECONDS ALL 
SUBSEQUENT PASSES TAKE APPROXIMATELY 100 SECONDS. 


8.2 STACK POINTER 
STACK IS INITIALLY SET TO 1100. 
8.3 PASS COUNT 
A PROGRAM PASS THRU COUNT IS KEPT IN “SPASS™. 
8.4 ITERATIONS 
THE FIRST PASS OF THE PROGRAM WILL AUTOMA “OTT 
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFOR N FULL 
(2000 DECIMAL UNLESS OTHERWISE SPECIFIED ATTAIN A Test), 
ITERATIONS. 
8.5 SPECIAL REGISTERS 
REGISTER R3,R4 AND RS ARE RESERVED FOR THE THE FOLLOWING 
PURPOSES: 
R3 = DRIVE 
R4 = TACS 
RS = TADB 
9. PROGRAM DESCRIPTION 
THIS PROGRAM IS A SEQUENCE OF SMALL INDEPENDENT TESTS THAT 
CHECK nit weit FOR PROPER OPERATION WITH TAPE MOTION KEPT 
THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS. 
1: VERIFY TH THAT THE “CONTROL AND STATUS" (TACS) AND THE 
-" "DATA BUFFER’ 6 (TADB) pREGISTERS RESPOND TO ADDRESSING. 
e. Tes! I THE ™ PROPER OPERATION 
4. TEST “CLEAR LEADER ERROR™ 
S. TEST “TRANSFER REQUEST” 
b. TEST THE “TADB” FOR PROPER OPERATION. 
. TITLE tp 1 BASIC LOGIC TEST (PART 1) MAINDEC-11-DZTAA-C 
HCOPYRIGHT. (0) 1973. 1976 


j#DIGITAL EQUIPMENT Tabape 
j HHAYNARD, MASS. 01754 


t XPROGRAN BY JIM LACEY 
t xTHIS PROGRAM WAS ASSEMBLED USING THE PDOP-11 MAINDEC SYSMAC 














| 
| 
| 


Bz 
B 


he 
wo 


tatatate! 


A A a St iti A tit ht eat atta 


uy 
HS 


Hiab ik ef RS bot 


LOGIC TEST (PART 1) 





MAINDEC-11-DZTAA-C MACY11 27(732) 25-SEP-76 11:04 PAGE 14 


—tgearre (MAINDEC-11-DZGAC-C1),MAR 24, 1976. 


HBR HHE HH HE HEHEHE HEHEHE HEHEHE 
3 HEHEHE HEHEHE SHEESH ESTEE IESE 
11 ladeiadeabal cibataeiateiadeaiaiaiainiaieiaiainiaiiaiaiaiainiainiaiaiciniaininiainiainiaininiaicisiniainisininiel 


‘Ren! 
GENERAL INFORMATION ABOUT THE TAL1/TUGO CASSETTE 
ADDRESS MNEMONIC DESCRIPTION 


77750) TACS | CONTROL_AND STATUS REGISTER ~ : 
77750’ TADB DATA BUFFER REGISTER 
260 TAVEC INTERRUPT VECTOR 


THUS REGISTER DESCRIPTION 


INIT 

BIT NAME STATE READ AND/OR WRITE? 
iS ERROR ? READ ONLY 
14 BLOCK CHECK ERROR 0 AD ONLY 
1 CLEAR LEADER ? READ ONLY 
1 WRITE LOCK ? READ ONLY 
1’ FILE GAP 0 READ ONLY 
& TIMING ERROR 0 READ ONLY 
09 OFF LINE ’ AD ONLY 
Ne WNT SELECT 0 READ/WRITE 

RANSFER REQUEST 0 ONLY 
06 INTERRUPT ENABLE 0 READ/WRITE 
OS READY 1 ONLY 
fe ee ect 
B puma fae 
1 FUNCTION BIT 0 READ/WRITE 

O=WRITE-FILE 

L=WRITE 

2=READ 

3=BACK aoe FILE GAP 

4=BACK BLOCK GAP 

S= FORWARD FILE GAP 

&=SPACE FORWARD BLOCK GAP 

7=REWIND. 
oo GO BIT © 0 WRITE ONLY! 





om Lone 
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© ERESSESSELSFSESSSSESSSLE SLE LESAELLRAELASSEASFELSAASSLERSE SSF SSASL SEES 
- SBT OPERATIONAL SWITCH SETTINGS 


$ ; SWITCH USE 

3* ie HALT ON ERROR 

:# 14 LOOP ON TEST 

3 13 INHIBIT ERROR TYPEOUTS 

3% el INHIBIT ITERATIONS 

* 10 BELL ON pe 

3# 3 LOOP ON ERROR 

3# Q LOOP on TEST IN SWR<7:0> 

# 7 LOCK ON CURRENT DRIVE (ONLY VALID WITH MANUAL LOOPING) 


: S SESRKESLFESFFELFSSSLLLFSFLESELRELERARSKLEERESHSLERELELERELESFEAEEESE 
"SBTTL BASIC DEFINITIONS 


eee OF THE STACK POINTER ### 1100 ### 
-EQUIV EMT,ERROR ;BASIC DEFINITION OF ERROR CALL 


“EQUIV IOT, SCOPE tt Basic DEFINITION OF SCOPE CALL 
j #MISCELLANEOUS DEFINITIONS 
T= i ;;CODE FOR HORIZONTAL TAB 
LF= 1 CODE FOR LINE FEED 
CR= 15 :;CODE FOR CARRIAGE 
CRLF= 200 >: CODE FOR CARRIAGE SET URN-LINE FEED 
PS= 177776 >:PROCESSOR STATUS WORD 
.EQUIV PS. PSW 
STKLMT= 177774 ;;STACK LIMIT REGISTER 
PIRG= 177772 ::PROGRAM INTERRUPT REQUEST REGISTER 
DSWRe 177570 >:HARDWARE SWITCH REGISTER 
DOISP= 177570 :;HARDWARE DISPLAY REGISTER 
jXGENERAL PURPOSE REGISTER DEFINITIONS 
33GE REGISTER 
Ris “a ss GISTER 
Res %2 >:GENERAL REGISTER 
R3= 73 3:GENERAL REGISTER 
R4= >:GENERAL REGISTER 
RS= ie GENERAL REGISTER 
ae. t ENERAL REGISTER 
EQUIV Kg, SP +O RK POTN R 
-EQUIV R7,PC $8 
-#PRIORITY LEVEL DEFINITIONS 
Sa: $s pRrORT Ty LEVEL ¢ 
= 83 
Pros {Bo + PR Ont Ty LEVEL é 
= 140 s PRIORITY VEL 
= 200 :PRIORITY LEVEL 4 
PRS= pad Ht aM LEVEL S 
= : PRIORITY LEVEL 6 
PR7= 340 ;;PRIORITY LEVEL 7 


s#"SWITCH REGISTER” SWITCH DEFINITIONS 








wo 
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cK - 
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5 ee “ 
eee Pereeenece & 
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’ sia Seen SHRISTTHES SE RSSRESRS onc. SoeEEEEEeE 8 
= >>>>>>>>>> “4 " >>>>>>>>> 8 
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OZTRAC.Pil 
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ERRVEC= 4 :; TIME OUT AND OTHER ERRORS 
RESVEC= 10 BP AND ILLEGAL INSTRUCTIONS 
Tey TVeC=14 

M TVECe t SEPOINT TRAP (BPT 

POIVECs Fl ee /QUTPUT TRAP (107) xaSCOPEss 
PWRVEC= 24 AIL 

EMTVEC= 30 FRU ATOR TRAP (EMT) **ERROR#* 
TRAPVEC=34 i ne TRAP 

TKVEC= 60 Y KEYBOARD VECTO 

TPVEC= 64 itty PRINTER VEC oR 

PIRQVEC=240 *:PROGRAM INTERRUPT REQUEST VECTOR 
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000010 
900012 
000014 
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peall FUSCTIONS 
;WRITE FILE a FUNCTION 
P 





4 : she TE F I 
6 > BACK — FILE GAP FUNCTION 
10 ;BACK SPACE BLOCK GAP FUNCTION 
le ‘SPACE FWD FILE GAP FUNCTION 


ete :SPACE FWD BLOCK GAP FUNCTION 
REWIND= 1 F ON 
7 HUH HEHEHE HEHEHE HEH HBHEHHHEHEHEH HEHEHE HEHEHE HEHEHE 


-TALL BIT ASSIGNMENT 
irre = Hi 

OCK=81 
I 
- 
I 


: 


TT00 
ON= FUNC2+FUNC1+FUNCO 
Hidde ddd ddd 
SSILTITITTTTALATTATTALLLAAT TALL TATTLALETTA TELAT EEA 
WLLL LLL 


cee, Paiste 


~ 
o£ 


3 Boaa 
‘ 
wo 
Sent 


—ROEReS 


F 
T 


pas hes Gs Ge ee 
Orta £ 


w A 


Ds 


4 
iF 


: 


A 






RIVE Ra CONTAINS THE DRIVE UNDER TEST 
Acs= ‘a R4Y IS USED AS A POINTER TO THE TACS REGISTER 
TADB= 4S IRS IS USED AS A POINTER TO THE TADB REGISTER. 





Hdd 
WELLL 
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CATCHER 4 
21 .SBTTL TRAP CATCHER 
719 oooooo 
720 io stp LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 

1 Gun O CATCH ILLEGAL TRAPS AND INTERRUPTS 
#88 ae LOCA ION o CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
724 000000 DISPREG: = hORD 0 SOFTWARE DISPLAY REGISTER 
725 000000 SUREG? 0 ::SOFTWARE SWITCH REGISTER 
358 1 1 noncde, Siar — appre ES JUMP TO STARTI OF PROGRAM 
ans 

eh renee ath IMP aTBEGING ite SELECT Nerves B BEFORE STARTING TEST 
7 BB Gale Balus me hills tie cba Moun Thostneesses =O TESTI 
fo mes Gale bee fe inwiee aL canta soe El 
733 000230 eae pigeoe JMP aeROSUB *READ CONTINUOUS BLOCKS TA 
734 000234 000137 013054 JMP JSWGPBLK “WRITE FILE GAP AND A BLOCK OF DATA 
735 000040 137 O13156 JMP JeRGPBLK *READ BLOCK OF DATA INTO A FILE GAP 
73% 000244 000137 Ol IMP aaSFFGSB *SPACE FWD FILE 
737 000250 000137 013336 aeBSFGSB : BACK 











TAl] BAS 
DZTAARC.P 





BISIRRPGRE SIS TIN ASEUeNTORE SUE MNU OM Se aaa Soe oe 





IC 
il 


000500 017714 O00434 
000S04 000775 


LOGIC TEST (PART 1) 


TOGGLE IN ROUTINES 
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SOSILSALIPTATATATASTSATALATIAETATTAS AAT DATTA SATA TT ALAA A ALATA AAAS SAAS 
SOLIS ITATTTLATAALTAAAATAAATTAALT ATS LAT AAT ATTAAEAAL TATA T SAAT ALATA ASS AA S 


;THE FOLLOWING ROUTINES CAN BE TOGGLED IN. 
TAA dd 


-REM : 


THE FOLLOWING ROUTINES (LOOP1, LOOP2, & LOOP3) CAN BE TOGGLED 

IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 

NOTE: BEFORE USING THESE ROUTINES INSURE THAT R3,R4,& RS 
ARE SETUP PROPERLY. 


## NOTE: IF USING SOFTWARE SWITCH REGISTER 
LOCATION SWR ase mer CONTAIN 


ey REGISTERS a Hi Shuey SETUP 
** 

#% V EINSTALET TONG 

R3= 0 cate IVE A 


400 IF UEING IVE B 
R4= TA11 STATUS REG ADDRESS (TACS 177500) 
RS= TAl1 DATA BUFFER ADDRESS (TADB 177502) | 
LOOP1 WILL LOAD THE SWITCH REGISTER INTO THE TACS. 


LOOPe WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END-OF-TAPE(EOT). 


LOOP3 WILL READ TO EOT. DATA WILL GO TO RO. 


NOTE: LOOP2 AND LOOP3 WILL REWIND WHEN EOT IS REACHED AND 
THEN START OVER. 


4 
} 


 sHESEESUSESAERNESESERNSERSRSRERERIRRSSEDERIESRSNERSEREE SORES SESS 


LOAD SWITCH REGISTER INTO THE TACS 


59 RR 


LOOP1: 


\ 
. 


.-=500 ow, ee 
MOV aSWR,aTACS j108D TACS 
BR LOoP| *LO0 














SSSI URINE 
Sis oes 








TAli BASIC 
OZTAAC.P11 
S 
735 
795 
797 000600 
798 000602 
799 ge 
JUUS 
601 Dodels 
eos 000616 
80S 000626 
806 000632 
807 000634 
808 000640 
803 O0064e 
810 
811 
Ble 
B13 
814 
815 
816 
817 
818 
819 


88-2 
a 


ON ee 

ee 

bes 

8 ar 
££ 


ou 


LOGIC TEST (PART 1) 
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WRITE SWITCK PEGISTER ON TAPE FROM BOT TO EOT 
riiiirittittttrttttiiitiititttttt ttitiitiiiiitiittt ttt e 


;WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 
MPtiiitiiiitiiittiitititttittiititiiiiititittiitttittiriitit ite 


000040 


LOOP2: RESET 
MOV 

1$: BIT 
‘BE 

2s: . TSTB 


33: BIT 
BNE 
BR 


CLEAR ALL FLAGS 
DRIVE, JTACS SELECT DRIV 
REWIND} GO, QTACS :GO TO BOT 
#READY, aTA ‘WAIT TILL READY COMES UP 
SURITE!GO, aTACS START A WRITE 
TACS ‘CHECK FOR TRANSFER REQUEST 
*BR IF NOT SET 
JSWR, ITADB ; SEND DATA TO TALL 
READY, JTACS ‘DID READY SET? 
LOOP2 :START OVER IF YES 
es ;LOOP 


5 5 REARLRALELELLLE LAKE LELELRELE LAA LLLAA LE LELLLLLE SELLE RAL TA LLLLLLLE 


;READ FROM BOT TO EOT 
eriiiiiiititititiitititiittitiiitiiittiitititittititiitiirii itty 


-=700 
LOOP3: RESET 
MOV 
1S: BIT 
BEQ 
es: nee 
BPL 
MOV 
BR 
me 
BR 


;CLEAR ALL FLAGS 
DRIVE, aTACS “SELECT DRIVE 
#REWIND!GO, aTACS START A REWIND 
READY ,@TACS ;WAIT ON REWIND TO FINISH 
$READ!GO, ATACS START A READ 
aTACS ‘CHECK TRANSFER 
3$ *BR IF NOT SET 
STADB, RO sPICKUP THE DATA 
#READY, STACS CHECK READY 
LOOP3 START OVER 
2s LOOP 








TAL BASIC LOGIC MAINDEC-11-DZTAR-C 
DZTAAC.Pil 





ee 


[=] 
a 


ISNSFERH SNYKREHSFEGSRRERBRERGSDEHoKLHRSS 
rT 


a oe Bt be bo 9 fs be bo fae Be hs fh fb Fh Po Bs fh hn bs Bs fo hs hm oe fe hs eh me 


BERS 
Gas Engities Bs 


roruoruru 
ee ee 


BRREGR Sad Veal sana OOM TORE COMMER OSS SRATORC CORAM EES & 


=i = - = 
88888888 88888888 S888S88S88S8S888888888S8SSSs8sssss 
bb bs pb h-+ es er a ae b= bb tb Fb an = b= bb bb = hf pp Be pe hs pe 


8 


-SBTTL CUMMON TAGS 


+k 
;* 


-=1100 


Bassas 
SRZoeeoecoeoooo- oOooo0000n 


% 


2 
m 


w 
= 
m 


ee 
on ° 


Bs Sasa 


oo O0O-wvwoO 
rT 


(207) 377) <377> 
/7/ 
«15> 
«12> 
Se SE HEE SEE EE EE EE 


ote 
NemN 


SLF: ? 
+ FELEEES 
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HHH RHEE REE EERE EERE EEE EEE EERE EEE EE EERE SEE EEE SEES 
ray The CONTAINS VARIOUS COMMON STORAGE LOCATIONS — 
USED IN THE PROGRAM. 


;;START OF COMMON Ti 

: CONTAINS ae Count 

CONTAINS THE TEST NUMBER 

5s ONTAINE RROR F 

: CONTA TEST ITERATION COUNT 
EIMANG ESE RO Pe Eons 
+ ON TAINE Po tee E TECTED 
::CONTAINS ITEM CONTROL BYTE 
*:CONTAINS MAX. ERRORS PER TEST 
;;CONTAINS PC OF LAST ERROR INSTRUCTION 
*:CONTAINS ADDRESS OF "GOOD' DATA 
j CONTAINS SS OF ’BAD’ DATA 
:CONTAINS ’GOOD’ DATA 

*:CONTAINS *BAD’ DATA 

; ;RESERVED--NOT TO BE USED 


; ;AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


BODRESS OF SHITCH REGISTER 
35 ISPLAY REGISTER 
siTTY KBD STATUS 

INTER STATUS REG. ADDRE 
PRINTER BUFFER REG. ADORE 


SS 


3; MAX. 
;;ESCAPE ON 
;;CODE FOR BELL 
;;QUESTION MARK 
;;CARRIAGE RETURN 


ee L 
ittrtiitti tir ttttttittt ttt ttt 


*HIGH BYTE ADDRESS OF TACS 
*LOW BYTE ADDRESS OF TADB 
*HIGH BYTE ADDRESS OF TADB 
“TALL VECTOR ADDRESS 

*TALL BR LEVEL 6 








me i re ee ene 0 


TALL BASIC LOGIC TEST (PART 1) MAINDEC-11-DZTAR-C 
il _ COMMON TAGS 


1224 ooo000 DRVKEY: 0,0 
Bes bo1e80 Qol2e4 DRVENT: DAVKEY 
830 O01e32 000000 ASKKEY: 0 

B31 001234 000000 : 


CURDRV 


a ee ee + + er ee 
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;ORIVE SELECT KEY: 


;CURRENT DRIVE BEING TESTED 


nh mieten 


0.000 000 00W0 
bb 2 bs Bs be ps be oe ps pe 
0 0O NOU .£ WIrueH 2 


Pa SPARC Una t i Aub y aN MiuaS 


2 
N 


4 LOGIC us (PAR 


001236 


Foe 


BBs 


nd 


8 SRBS 383k GReR 


WWW 


8888 8888 8888 8888 8888S 8888S 
panera 
£Vvo 


eo ro 


8 
—_ 
WwW 
eas 
o 


See Ee 


~ 
tf 


Bend 
=o 
o 
_ 
Ry 


eS 


o 
os 
<= 


Bea 


o 
ed 


O00 
G4 Fa he 
o 
_ 
<= 
Ss 


ES 


St=t=4 
ats 
x 


— 
Oo 


MAINDEC-11-DZTAA-C 
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-S8TTL ERROR POINTER TABLE 


parH S Me conta NS THE INFORMA 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 





ALL NUMBERS ARE 


oom oO 
mw 
Ww 


+ i: a! 


= 
ul 


mo oo 


o00 
ore 


7 
E 


a 


; OBTAINED BY 
ITEMB 1S 0 THE ONLY PERTINENT 


$ 
ACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


; THE DATA 
:;POINTS TO THE DATA FORMAT 


; STATUS Hs 
? SERRPC SREGO 


;READY FAILED TO SET 
:PC TACS WAIT ADDRESS 
;SERRPC SREGO SAVPC 


; TRANSFER REQUEST FAILED TO SET 
PC -TACS WAIT ADDRESS 


;THE WRONG FLAG SET 
:PC TACS WAIT ADDRESS 
;SERRPC $REGO SAVPC 


3 COUNT PATTERN FAILED 
C TAC EXPECT RCV’D 


} SERRPC SREGO $GDDAT SBDDAT 


spare tes 
;SERRPC SREG1 


DATA PROBLEM 








ORMAT ‘an F ae or Me ee COR. 
ie Oba TON" sttere. 7 HIS NUMBER IND Tenves Heaton: Tren IN ie TABLE IS PERTINENT. 
: ¥NOTE2: 


TYPED AS 6-DIGIT OCTAL NUMBERS 


TALL BASIC LOGIC TEST (PART 1) MAINDEC-11-DZTAA-C MACY11 27(732) 25-SEP-76 11:04 PAGE 2S 
DZTAAC.P1l ERROR POI 


NTER TABLE 
iCERRPC SRE Scobat SSu0RT 


$5 
38 
RS 
4 
eo 
Sot 
S os 


850 001324 

$51 

225 001 1 om | ;ADDRESS FATLE 

aea b01380 oie ; BHI apoRES 

85 001332 016330 DT1O  :SERRPC SBDAOR 

$56 00154 00000 0 

$58 001336 ITENS2: SITEMS 201-202 

866 001336 016350 EM20 ; JR11 FAILED TO RESPOND 
81 001340 O1e422 DH201 :PC ACS 

Se OIE 01633 DT201  }SERRPC race 

$3 01344 000000 0 ?BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 
S65 001346 Ol EM202 ;NO DRIVES AVAILABLE 
S Be ite BES Ber 

368 1354 aan 0 : 


ce Se ee ee 


~ 
»D 
o- 
oe 
i 
oe 
-—o 


ama § 


aos 


wo 
3 


RETRO 


S888S8888S8E8 
- = 
TEE EEESS a a oe on ee 
pa hee 
Or£o 


SPREE we RCO S 


] 


= 


SSS ilaisiotaty 


8 SS88888 SSSSSssssssses s' 
GENSRENEOO | j 


4s 
a) 


OooOOoooOo00O 

ee 

WONWU CWO 
ee ee eee ee re ee 


REeeSy ae 


o 
_ 


BO BB hb = b= & 2 2 B&O = P= = BO he 
o 


RESRES 
& & 





og 


ODOOOO00000 


LOGIC TEST (PART 1) 
START OF 


041101 
oooces 
000260 


900001 
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SOSLIALITTTALITTTTTTTAEATATAATATATALAEATAEETPALAAES AAA AT SAAT AAAS ASA A 
LLL ETA ELLA 


; REAAAELALAARAAAELLLAERALALLAL LL RELELARLLE ALLE LAELELERFLELALELEEE 


SBECINI IS FOR NORMAL STAR 

;BEGINE 2 For FOR prety SELECT ION 

:BEGING & fn SELECTION 
;BEGINY IS FOR MANUEL OPERATION 


5p RERERRREAER ELE LALELELELERE RELA RE LE LLL ALLL RE LALLA LL ELERELELELELE 


BEGINI: CLR RS ;NORMAL START 

MOV #"AB, JSDRVKEY 
CMPBs«#S, #41 $605 Beat 
BNE BGACMN GIN Con non ,CODE IF NO 
CMP 8260, JHTAVEC 


ee Be LOR a I 


BEGIN2: MOV = #1, RS SASK FOR DRIVE 
— BR BGACMN ;BEGIN COMMON Zope 
BEGIN3: MOV = #2, RS ASK FOR DRIVES AND ADDRESSES 
mR BGNCMN 
BEGINY: MOV #3,R5 
BGNCMN: 


-SBTTL_ INITIALIZE THE COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCNTAG) AREA 
MOV SSCMTAG, R6 ;;EIRST LOCATION TO 1h CLEARED 
MEMORY LOCATION 


CLR (R6)+ ;;CLEAR 
CMP #SWR,RE ;; ? 
;;LOOP BACK IF NO 
TACK, SP ;;SETUP THE STACK POINTER 


ks 
; INITIALIZE A FEW VECTORS 
MOV WSSCOPE ,JBIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
MOV #340, a8f0TVEC+e ;:LEVEL 7 
MOV SSERROR aNEMTVEC’ 3;EMT VECTOR FOR ERROR ROUTINE 
MOV #340, a#EMTVECte ; ? 
MOV “STRAP DSTRAPVEC : ; TRAP {VECTOR FOR TRAP CALLS 
‘a 0 DkTRAPVECS +2;LEVEL 
MOV iSPHAON #PWRVEC’ : PBHIER FAILURE VECTOR 


MOV #340 SURVEC SS LEVEL 7 

MOV SENDCT, SEOPCT TUP END-OF-PROGRAN COUNTER 

CLR STIMES ‘INITIALIZE NUMBER OF ITERATIONS 
g HE ESCAPE ON ERROR ADDRESS 


ONE ERROR PER TEST 


a. 
peak 
3 


MOV #.SLPERR > SET 
SIZE FOR A HARDWARE SWITCH rectSTeR. IF NOT FOUND OR IT IS 
?:EQUAL TO if "-1" SETUP FOR A SOFTWARE SWITCH REGISTER. 
DKRERRVEC,-(SP) ;;SAVE ERROR VECTOR 
HOV #64S SEEARVEC ;:SET UP ERROR VECTOR 

#DSWA, SUR SETUP FOR A HARDWARE SWICH REGISTER 
MOV $0015? DISPLAY }:AND A HARDWARE DISPLAY REGISTER 
CMP #-1, JSUR TRY TO REFERENCE HARDWARE SUR 
BNE 66$ ; ]BRANCH IF. NO TINEQUT TRAP Oc URRED 


3 AND = -] 
BR 65$ : : BRANCH IF NO TIMEOUT 








- 
~ 
| 


5 


BSSLeA EGO OREURR TORE SESE B 


011200 000042 


177226 000176 


000001 177204 


+--+ b+ b= b= 6 b= b+ = = 0 8 0 po ho 2 pe 
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64S:  #b5S, (SP) ;;SET UP FOR TRAP RETURN 


RTL 
: V ssPOINT TO SOFT 
oe SREB gy POT 10 stPTINE Si 
66S: MOV § (SP)+,aKERRVEC ;;RESTORE ERROR VECTOR 


ee TYPE PROGRAM NAME 
33 = Ags: PROGRAM IF FIRST PASS 


ssEIRSI TIME? 
BNE HERE BRANCH IF NO 
C BSENOAD, aed Hat 
BEQ HERE RANCH IF YES 
TYPE TYPE, ASCIZ STRING 
.S8TTL GET value” Peat SOFTWARE hit REGISTER 
TST #42 3 3ARE WE RUNNING UNDER XXDP/ACT? 
BNE org :: BRANCH 
CMP SWR, #SWREG EOF THARE sui CH REG SELECTED? 
BNE 68S CH IF NO 
GTSUR = Ho SOFT-SWR SETTINGS 
67$:  MOVB 4#1,SAUTOB ;;SET AUTO-MODE INDICATOR 


68: 
BR HERE T OVER THE ASCIZ 
jatsslo: .ASCIZ CORLF> /MAENBEC od DZ TEA CY <ERLFD 
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DITRAC. PL) GET VALUE FOR SOFTWARE SWITCH REGISTER 
1051 5 RRERRERERESREEE DRESS SEE REREREE EERE SR ERERSS ELS SESSLER ESEEE SEES 
136 5 REFERRER ARRREE EE LERET SPEREEEEREREREEERER EES LELEE REE EES 4 EEE EEES 
i | 
ie 3 THE CONTENTS OF RS DETERMINES WHAT WILL BE DONE 
1056 ; RS=3 MANUAL OPERATIONS . 
1057 : RS=2 ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 
1058 ; RS=1 ASK FOR DRIVE(S) 
Hea ; RS=0 DON’T ASK FOR ANYTHING 
1081 WAU iititiiitiitiiiitiiiiiiiitittirisiiiistritititttriiters tity 
106e 001760 010504 GINX: MOV RS,R4 ;COPY RS 
1063 001762 005305 DEC RS :AEK FOR DRIVES? 
1064 001764 002406 a BLT CHKADR ;BR IF _NO 
1065 1788 004737 Olecee JSR PC, aBASKDRY :GO GET DRIVES TO BE TESTED 
ids& Of} 005305 DEC RS ;ASK FOR ADDRESSES? 
1067 001774 O0e40e BLT ge ;BR 
O68 001776 004737 Ol2332 JSR @BASKADR ;G0 GET TAl1 ADDRESSES 
0&9 , jaeananeannsnnnnshanntess resansenansanslataenansetienean teeth 
as WTItiittttiitiiiitiitiittitiiiitiiiiitittiiitiiiie cic 


CHECK THAT “TACS” WILL RESPOND TO ADDRESSING 


iT. TIMEOUT OCCURRED 
A. TYPE ages MESSAGE 
B. EXAMINE RY 
i § R40 GOTO peciie 
R4=0 ‘wei 42) 
A. (42)=0 GOTO BEGINX 
B. (42)>0 GOTO SENDAD 


II. TIMEOUT DION’T OCCUR 
A. CONTINUE 


; mm ia Sit Aa tin Gee or ee 
012737 o02020 o00004 yan MOV 81$, J8ERRVEC 


02 a2 0s Fae fae fae Ge b+ Hs Fn ne 0 Pew Huw f-0 §-0 h-2 Pw ne H-0 H-2 H-0 


Riri ict titi SERERERR 


00201 905000 CLR RO ‘IGE AS A SWITCH 
00201 177170 TST STACSL *SEE IF TAL] RESPONDS 
002016 oo040e2 BR 2s *BR IF NO TIMEOUT 
NOS020 1S: INC RO : ON TIMEOUT 
De0ec CMP (SP)+, (SP)+ * CLEANUP THe STACK 
I 000006 O00004 2S: SERRVEC42, OSERRVEC *RESTORE TIMEOUT VECTOR 
T Fo ;DID A TIMEOUT OCCUR? 
141 Q IF NO 
1095 10420 ERROR 201 ;TALL FAILED TO RESPOND 
1096 br250s ooocc2 v $2,R5 “DRIVES & ADDRESSES 
1097 005704 TST RY OPERATOR INPUTS? 
1098 001344 BEGINX BR IF YES 
1099 013700 oo004e MOV aie RO 5GET MONITOR RETURN ADDRESS 
1100 poets 001741 BEQ GIAX *BR IF NO MONITOR 
1101 000137 011200 IMP JSSENDAD *GO TO END 
1182 od02e06e2 3S: 





ce am ee ee ree een te a re ne ne TO 
abs 
‘ 





S 
= a 
= 2 : 2° § : g 
x3 iS ow 
2 SE 3 : 
= $3 ~ zoety = a. & & 
s S iyosses 8 Ef 5 See 
a HB en eee 
e $¢ ma Fooy Sees ote A2dae Bogtace ¢ 
, $2 4 eoSctuSoe cheat, mu! Su Ren ESS a, 
ae =e y ie oxbsex! Sox telke ottetoes a 
& i238 oe. gessesssd Sexe Galley okSabes =f 
ss 438 = x 
a 2:25 92 5S 9g ¢ 
R FET H xa88 by & F 
BR te ee Swe Fs 
©. ss 5S. BYaa ode Be ft = 
O> Gr w 28 eee HER ae ¢ a 
Of HP 5 89 Sica wee °9 tes 5 2&5 oe & 
i eee ee 5 ; OS: . a » etx 2 ob 
se 8 SSeke 8, ie he 5 ead aye ge 
#2 2 BEw., 882 BY HonlacnPnerntasenten uazisies vz _*S 
Biie ete Bes Be i z 3 
vg ify Bes Baa He MasiMacaeh seutinltiale DuSgeeescars 
Na 33 4 et ae F 3 = 
i ae OO ¢o8 & z 8 
Bs iS 
Fu 8 
2 aS : 2 8 ae : : 5 a ae 8S 
Tuy r=) 3 = =8 88 
= pose 
5 See See ee ea 
Hy Sorts tetanic ste : 
4 <n mas 
a5 ESSSicitietesctctetetcpesetetetescctcte 


a 


9 = oh fe ee a-ha Fafa fa S fa- he p phe pep phe pe ph ph pp po gd oh oe RR RR 
ah at Rm Ram Rat Rem Dam Rae Rae Rot Rot Rae Rok le Roe Re Rote ok oe oe hoe oe oe Fe re yes ee ee PS ee ee ee ee ee eee ere rere rele re et he nl 


| 
Fat etat Stat ope pete EAS Ee STN INT AH tt te tote eta ty iota ok erate ak Se ak abn Math te heateity, itr | 


TALL 
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D 
oo 


f+ bah hw hs x 


bob = 6--P © bh <p 2h <b — pop pe ps 





Soo VFREGHH SS 





p< b-< 2 B= &. 2 p> p= & = 9 f+ p= Hp 0 Ho He 
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SEGRRLSC SSE SRA PERE B Aa otal salad 
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LOGIC TEST (PART 1) 
GET VALUE 


s: 


s 


AME h Ole1l6 


~ 
Tw 
wm 
NN 


oo 
= 


4 


ue 


8 


a i 


== 


mn MENUiewe! Ciena ae 
= 


: 
tw 
8 
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MAINDEC-11-DZTAA 
FOR SOFTWARE SWITCH REGISTER 


176754 START: 


bas: 
18: 


TORV: 


bas: 


1S: 





AoE ORAS 





OSTAVEC+2, ATAVEC 
aTAVEC+e 


#340, a8PS 
asTAtsL, TACS 
STADBL, TADB 


1§ 
arte: s5, carmen 
ae4 


1$ 
65S 


645 
(15><12)/D0 A wit 


aeSTSTNM 
DRIVE 


JRORVPNT, RI 
(R1),8°A 


SUNIT, DRIVE 


65S 


4§ 
<15><12> aTESTING’t 
(R1)+, CURDRV 


» CURDRV 
oe 


SSWREG, SWR 


20S: 
oe sr IS wi ce & DOP 


HEN JTACS 
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;SETUP TALL TRAP VECTOR 
sLOCKOUT ALL 1/0 INT 
TUP TACS 
Heer PRT PASS SETUP FOR EXTRA LONG WAIT LOOPS 
OTHERWISE USE OLD VALUES 


44 MONITOR CONTROL? 
:SKIP Pas So IF YE 


;SETUP TO TYPE CURRENT DRIVE 


POINTER 

ices DRIVE POINTER FOR NEXT TIME 

60 START TESTING IF NO MANUAL 
OPERATIONS REQUESTED 






LOGIC TEST (PART 1) MAINDEC-11-D2TAA-C 
OZTAARC.P GET VALUE FOR SOFTWARE SWITCH REGISTER 


PMMA AAAS A Aphid pb A DAD Abd hd the hd ight ddidild pelhghbedlh bil dp ghd 
UU 


HE F TESTS WIL K TA 
RS HO att BAR TU seen 
SO VITEALEALILT EU EATECERIGETIA OEE EE CEFTIECTALLLTUHELIUUELELTIIVITIINELE 
| ieaiaichatacatcaaiatmaaie ig tt bd igh et terete atta 
;TAL1 REGISTER T 


: TO ADDRESSING 
jeereneacacaneedeneeseessaneneeeeneneeneneenaeananenscaneneaes 


TEST IF TACS EXIS 
jevseaduenueanetaneaneateeneeoseeyn0oteaneGaneHOeEanEATEEaEEREES 
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SATE 


téT1: SC 
MOV #1 STINES 3;D0 1 ITERATION 
MOV aSTACK ;SETUP THE STACK POINTER 
MOV #1$ AOAtRRVEC *SETUP FOR BUS TIMEOUT 
CLR aTats ;TACS AREY OU THERE? 
1S: MOV HERRVEC #2 J#ERRVEC REST ORE SRA ta TCHER 
CH (SP) (Pe sCLEAN UP THE STACK 
toy auenTiec OeEMTVE F SKIP BIR VER thie en AVE OF TACS AND TADB 
Mov oT TACS, SageOeOR iSFton FAILING RODRESS 
FTE R ROOREoeT THE FuCe REGISTER 
Hoy (SP) 4 ,OHENTVEC ies ERROR CALLS VECTOR 
2s: MOV #ERRVEC+2, JBERRVEC RESTORE TRAP CATCHER 


59 JH HIHIHIGHIHHIHHHHHHHHIHIHEEHIEEHHIHHHEHHHHHHHHHHIHHHHHEHEEHEEEE 
;TALL REGISTER ADDRESS TEST 
TADB RESPONDS TO ADDRESSING 
; gasegeenneneelanieenantereaatsesessnenteanannevanianeeaaaeess 
2 GHHEHHHEHHEHHHHEHHHHHHEHHEHHHHHHHHHEHHHHHHHHHEHHHEHHEEHEHEE 


tite: 


#1,$T1 3;D0 1 I 
nov SIAC : rere et THE HE STACK POINTER 
CLR Hie ser FO vou THERE? 
1S: MOV cee Q#ERRVEC ies coho TR CATCHER 
Sov gene Pie, SETUP FoR THIS ERR 
HOY OeEMTVEC P Cote OF TACS AND TADB 
MOV TADB, a8SBDADR 3GET THE FAILING ADORESS 
ERROR 10 ERROR -- T 
+ WHEN GISTER 
MOV (SP)+, QEMTVEC jRESTORE THE ERROR CALLS VECTOR 
IMP SEOP GO TO END OF PROGRAM 





oe 
#ERRVEC+2, OHERRVEC RESTORE TRAP CATCHER 
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Toiiiiehhaeea iat W's plea 
1 REGISTER 


TO ADDRESSING 
senepepevenasai OE HURT OES RESON, TO SORT aay 
iETEST 3 OR LOW BYT 
© ELAEHERSEEREEREA LEELA RES REL AKERS SAAS AL ES RARRARELARALELAAARAERES 
Wea 1 176252 i813: ao . #1,$TI :D0 1 ITERA 
01570 oB109 MOV aStAck se ree wet THE STACK POINTER 
1 002732 oo0004 MOV #1$ Sat RRVEC SETUP FOR BUS TIMEOUT 
27 et y CLRB Tats TEES ARE YOU, THERE? 
27 x *YE NO 
02732 Ol 000006 o00004 1S: MOV sERRVEC HE DRERRVEC sRES TORE TRAP CATCHER 
Begbes CMP (SP)+ ie, AN UP THE 
i : te ( 000030 NOV ont SeERTVEC wha Thre Ee the CAVE OF TACS AND TADB 
nie pates8 MOV TACS, a#$B8DADR ct THE ‘Patt ine ADDRESS 
104010 ERROR 10 ERROR -- TIME OUT OCCURRED 
WHEN ADDRESSING THE TACS REGISTER 
012637 000030 MOV (SP)+, QSEMTVEC jRESTORE THE ERROR CALLS VECT 
000137 O11124 INP asse TO END OF 
012737 000006 oo0004 2s: MOV SERRVEC+2, JHERRVEC ‘Rest TRAP CATCHER 
Th lahaiabahahahalaiaiaiaiala’—+-tital-t-+-$-++-1-1-1nh-1-1-1-1-1-1- 1-1-1) 
11 REGISTER ADDRESS TEST 
SINSURE THAT TADB RESPONDS TO ADDRESSING 
[HEHEHE HEHEHE HEHEHE HHH HHH EE 
TEST 4 FOR LOW BYTE OF TADB 
- ELKEELESK ERASE SELES SSR AA SAS HS LASS ERAAL AERA LEA RARER KA ALAS LAE 
i eee Wey 000001 176156 tite Boy #1 1, STINES ;D0 1 ITERAT ERATION 
1 meat 1 1100 MOV STACK POINTER 
1291 posois 1578 viene 000004 MOV ‘is PO RERRVEC + ETP FOR BUS TIMEOUT 
1 105015 CLRB 3s @TADB *TADB ARE YOU THERE? 
1293 bode 000420 BR *YES == NO_TR TRAP 
1294 12737 000006 COO0DY 1S: MOV SERRVEC+2, JSERRVEC ‘em te! TCHER 
1 posts CMP (SP)+, (SP3+ 3C TACK 
{ O42 Ol Bee 000030 a 2 sSETiP Fo og Tans ERROR atte OF TACS AND TADB 
ice, @ 
ies bites? Bbiize HOV 1208, #$BDADR sGE7 THE’ FAILING ADDRESS 
1300 vane i ENEN REA ADORESCTNGCT THE er a GISTER 
130 003056 012637 MOV (SP)+, Q8EMTVEC sRESTO THE ERROR CALLS VECTOR 
1 NO306e 000137 O111 IMP aaseoP OF PROGRAM 
1303 003066 012737 OO00006 O00004 2S: . MOV #ERRVEC+2, OHERRVEC *REST CATCHER 
130 ss ge Me See AE A MAE AE A Ha a a a da a a a EE A A EE EE RRR EE EERE 
; 
ING 
1308 REHHHHHHEHEHE HH HHHHHEBHHHBEHHHEE HHH HHHHHH HHH SHEE HHHHHHHHE 
1309 tRTEST S TEST FOR HIGH BYTE OF TACS 
1310 © ELELERELESESES ESSER ERR EE EREARAE ERASE REAR RARERARE SERA ARRAR REESE 
ait po900 téts: SCOPE 
| 431 12767 00001 176062 HOV #1, STIMES 3300 1 ITERATION 
| 1313 003104 012706 001100 MOV #STACK, SP SETUP THE STACK POINTER 
i oo — — 
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TS TEST 


— 
oO 
Oo 
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TJ 
ow] 
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003124 
176066 


12737 000006 
1393? 011516 
173? 17eGse 


000030 
011124 
000006 


GIGIWIWIUIG 
0b ee 
OOnNoul£ 


b= b-— 6 => o Bop p= pp Pp 


s: 


RES 
Foe 


Bae BES 


im poe 
fie a 
003210 012737 esas 
Ss Me 
es tee 
003234 013746 000030 
Bes fice Hoe 
0032S4 104010 
mas uate goo 
003266 012737 


PEP EE RE ereean ie aati init 
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FOR HIGH BYTE OF TACS 


000004 


ooco04 









MuV #1$, JHERRVEC sSETUP FOR Bus TIMEOUT 
CLRE TACSH ;185SH Y THERE? 
1S: MOV HERRVEC HE Q#ERRVEC iB TORE TRAP CATCHER 
CMP (SP)+. (SP5+ AN UP THE STACK 
MOV DBEMTVEC, -(SP) setup FOR THIS ER ERROR CALL 
MOV SERROR]  Q¥ENTVEC i RIP OVER THE SAVE OF TACS AND TADB 
MOV TACSH, J&Si3DADR sGET THE FAILING ADDRESS 
ERROR 10 ;ERROR - TIME OUT 


OCCURRED 
WHEN SSING THE TACSH REGISTER 
MOV (SP)+, QsEMTVEC RESTORE THE ERROR CALLS VECTOR 
MP ;GO PROGRAM 


J & TO END OF 
2s: MOV SERRVEC+2, JHERRVEC SRESTORE TRAP CATCHER 
_anaerameesnes Tg A ona naam: 
; TALL REGISTER ADDRESS TEST 
i INSURE THAT TADBH RESPONDS TO ADDRESSING 
Mitt tiitittiiiitiiiittiiiiTt te ELLLELLLe 





iktesT 6 TEST FOR HIGH BYTE OF TADB 
"mag 97" eager on “op raga nnce cane: 

MOV #1,$T2 ;;D0 1 ITERATION 
MOV TACK ;SETUP THE STACK POINTER 
MOV #1$, J8ERRVEC ; SETUP FOR BUS TIMEOUT 
cLReg AGH i YESe =< 

18: MOV —-SERRVEC #2, Q8ERRVES SRESTORE TRAP CATCHER 
CMP (SP)+, (SB! *CLEAN UP THE STACK 
MOV DONT VEC, - (SP) SETUP FOR THIS ERROR CALL 
MOV ORI, J8EMTVEC sSKIP OVER THE SAVE OF TACS AND TADB 
MOV TADBH, J&SBDADR ;GET THE FAILING ADDRESS 
ERROR 10 ERROR -- TI OCCURRED 

*WHEN ADDRESSING THE TADGH REGISTER 

MOV (SP)+, J8EMTVEC RESTORE THE ERROR CALLS VECTOR 
IMP aeseoP GO TO END OF PROGRAM 

2s: MOV #ERRVEC+2, JSERRVEC RESTORE TRAP CATCHER 
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1385 
1354 
1388 
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003306 
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Add ddd ddd ddd ddddddddddddddddddddddddddddddddddddddddddddddddddddddd 

SLILILLLI LILLIA LLL LUI LL ILLIA ITLL LILI LLL 
OLLOWING TESTS WILL CHECK THE ye STATE OF ALL BITS 

SIN THE TACS THAT ARE NOT DRIVE DEPE 


ELT LLLLG ELL LIEU TLAL AL LULL LILA LTE ITULL 
; LEELAAELELALALLALELAALLELE LLL RS LALA LE LLAA SEAL AE AEAALAAEL LEASES 


SATEST ? TEST INITIAL CONDITION OF TACS BIT14 = 0 
allele 


ti17: 
#1$, SLPAOR ;;SET SCOPE LOOP ADDRESS 
18: eI 4 aTACS -IS BITI4 OF TACS = 0? 
a Hb ’ :;BR IF YES 


;ERROR =~ BIT14 OF TACS DION’ T INITIALIZE PROPER 
eee ital roeneereeemeepeeee BIEL Et 


TEST INITIAL CONDITION OF TACS BIT11 = 0 
jeaneaeaueuueansesneusnansenneaAthnsOnEOOHENEHEEEAEERIEREERESS 


itt 
MOV #1$,SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: ait #BITLI, ,aTACS ae ps BITI1 OF TACS = 0? 
a RROR -- BIT11 OF TACS DIDN’T INITIALIZE PROPER 


saaseet oS veataavescervessssnneesneele terns eee rise 


TEST 11 TEST INITIAL CONDITION OF TACS BIT1O = 0 
"yg oem nent 


juste 
#1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: BIT 8BIT10,aTACS -1S BIT1O OF TACS = 0? 
BEQ TSTle 3;8R IF YES 
E 1 OR -- BIT1O OF TACS pion’ INITIALIZE PROPER 
$ | HHH HHH HHH HHHHEHHBEEEHHAHHHHEE HHH 
tTEST 12 TEST INITIAL CONDITION OF TACS BIT 


0 
a AC 

HOV ‘ #15, SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: BIT #81708, aTACS -1S BITOS OF TAGS = 0? 

BEQ TST13 3;BR IF YE 

ERROR 1 1T08 OF TACS pron’ INITIALIZE PROPER 


HA B 
TTT 


s#TEST 13 TEST INITIAL CONDITION OF TACS BITO7 = 0 
ao eeepeeeaeeaencecnasppmammmmmmameanmmaesi ss <iet: 


ure 
Ho #1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: a #81707, ,aTACS ao ig BITO7 OF TACS = 0? 
ERROR 1 OR == BITO7 OF TACS DIDN'T INITIALIZE PROPER 
aseeestdtoee esassesvrsossnnesnnnedetanerie eet 
jATEST 14 TEST INITIAL CONDITION OF TACS BITO& = 0 
* LEKEAAEEERRELSAAARARRAREEE AER AAEELARARSKARERARARAAARERRKRKERRAKEE 


+6714: 
#1$, SLPAOR ;;SET SCOPE LOOP ADDRESS 
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31S BITO& OF TACS = 0? 


>:BR IF YES 
sERROR -- BITOG OF TACS DION’T INITIALIZE PROPER 
Dn peg Sg UT EO eee 


ST 15 ST INITIAL CONDITION OF TACS BITOY = 0 
aa “> go gainpang ao ama a pmineaaene ae mamma ik: 


uses 
#1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: “ #81704, aTACS mags is BITOY OF TACS = 0? 
-- BITOY OF TACS DIDN’T INITIALIZE PROPER 


He 
a eet PT EST 


tte 16 TEST INITIAL CONDITION OF TACS BITO3 = 0 
eas eeaseyeanneateaneestenstasntstenseeHHeGs tea HeasHEaHEAHEOHE 


18: BiT $81 TDS, STACS 
BEQ TSTIS 


tT16 
io . #1$,SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: BIT #81T03, aTACS -IS BITO3 OF TACS = 0? 
BEQ ST :;BR IF YES 
ERROR *ERROR -- BITO3 OF TACS DIDN'T INITIALIZE PROPER 
5 EN tc A eh 5, MB 
TEST 17 TEST INITIAL CONDITION OF TACS BITO2 = 0 
jittetnthnnseneeecennseenectetenesenenntensaneeneensenntessneaeny 


SCOPE 
a #1$, SLPADR 3;5ET SCOPE LOOP ADDRESS 
1S: BIT #B1T02, aTACS IS BITO2 OF TACS = 0? 


BEQ TSTe0 BR IF 468 
ERR 1 BITO2 OF TACS DION’ T INITIALIZE PROPER 
asesectadeesbeaesseregessnsvsnnesletiberndl a atin 


tk 1 

jj tERAORERSEENEREEORESESEREESESEEESESEDESEREDESEEEOSEEOREREREOOOS 
MOV #1$, SLPADR 3;SET SCOPE LOOP ADDRESS 

18: BIT $81 101 ,@TACS 31S BITOL OF TACS = 0? 


BEQ TSTel 3;BR IF YES 
-ERROR -- BITOL OF TACS DIDN’T INITIALIZE PROPER 
. (JHE HEHEHE HHH HHHEEH EA EHHE HEHEHE HEHEHE 


thr TEST 21 TEST INITIAL CONDITION OF TACS BITOO = 0 
Tr alae eeeeeeanieieetieeieaeaee 
a #1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
1$: BIT #81TO0, JTACS 31S BITOO OF TACS = 0? 
Q TSTee 


BE ::BR IF YES 
ROR 1 sERROR -- BITOO OF TACS DIDN’T INITIALIZE PROPER 
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02 TEST INITIAL CONDITION OF TACS BITOO = 0 


TAARC.P T21 

i 

1 

RS 

Re 

1461 

1462 

1463 

1464 

1465 003602 000004 

1466 052714 000400 
1467 10 032714 000400 
1468 14 1001 

ino 003616 104001 

1471 003620 042714 000400 
1472 003624 032714 000400 
1473 003630 001401 

1474 003632 1 1 

1475 

1476 

1477 

1478 003634 000004 

1479 002636 012767 000005 
1480 003644 012714 000400 
1481 003650 032714 000400 
1482 003654 001001 

inet 003656 104001 

1485 003660 000005 

1486 O00366e 932714 000400 
1487 003666 001401 

1488 003670 104001 

1489 

1490 

1491 

1492 003672 000004 

1493 003674 052714 000100 
1494 003700 03¢714 000100 
1495 003704 0601001 

iio 003706 104001 

1 10 14 0001 

ee en oar Bt 
1500 003720 001401 

138 003722 1 1 

1503 

1504 

1505 003724 CO0004 

Be fee ek Bute 
1 Bo3740 14 800100 
1509 003744 00100! 

1510 003746 104001 
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SOSSIITALPSAPTATATAAT ATT TATTATATTT AAT TAT ATT PTD AAA TT AAT ATA ALAA ESAS SAS 
BLULILLLIOLILLU ALLA LILES ILOLLT LULU ALLS ULLAL TTT 


;T 
:BI 
SAND INITI 


Of THE Taco FOR SETTING, CLEARING, 


Ln, 


ETE 
+ér 


IS #81T08, eTACS 
BIT #B1T08, aTACS 
BNE 1$ 
ERROR 1 
1S: BIC #8IT08,aTACS 
BIT 


#B1T08, aTACS 
BEQ TST23 


prep op eter BITOS OF Tate MAY BF “SET” AND “CLEARED 
TEST BIT TACS MAY i “CLE 
ees veneeneesnensvensnesnnensiesttesnseaeeaeea esd ees e40 


;SET BITOS OF TACS 
DID BITO8 SET? 
3BR_IF YES 

;BITOB FAILED TO SET 


;NOW CLEAR IT 
:DID BITOS CLEAR? 


ITO8 OF TACS FAILED TO CLEAR 


3;BR IF YES 


ERROR 
JUG HHH GHG HHH HEHEHE GHEE Hae 
ST BITOS OF TACS INITIALIZE TO ZERO 


 ATEST 23 
ep pee pea err 
MOV TIMES ;;D0 5 ITERATIONS 
18: MOV setios, aTACS ;SET BITOS OF TACS 
BIT $1708" aTACS ‘DID BIT08 SET? 
BNE 2s BR IF YES 
ERROR 1 *BITOS FAILED TO SET 
2s: RESET ;CLEAR THE WORLD 
BIT #81708, aTACS ‘DID BITOS CLEAR? 
BEQ TST24 :;BR IF YES 
ERROR 1 SET DIDN’T CLEAR BITO8 
rt ree tee 
ETEST 24 TEST BIT TACS MAY T” 
jiSeMMRSESROREEREESEEESENEEEEAGEESESEEEREREERESEHONEOASEENEES 
BIS #B1T06, aTACS sSET BITO6 OF TACS 
BIT #BIT06, aTACS DID BITOS SET? 
BNE 1$ *BR IF YES 
ERROR 1 *BITO& FAILED TO SET 
1S: wBITO6, TACS 
Bi be Tacs '01D NO Bitae & IT06 A aR? 
BEQ ;;BR IF YES 


06 OF TACS FAILED TO CLEAR 


ERROR 1 ERROR -- BIT 
SEG GHG HHO 


i STEST 2s TEST BITO& OF TACS INITIALIZE TO ZERO 
HETTSEITSTETT SETS SCT ST TTS ETT T SSE TETETETTT TT TTT TIT TTT TTT TTT TTT 
téT25: SCOPE 
MOV TIMES ::D0 5 ITERATIONS 
1S: MOV settoe JTACS sSET BITO6 OF TACS 
BIT #81706, dTACS ‘DID BITOS SET? 
BNE 2s BR IF YES 
ERROR | *BITO& FAILED TO SET 








~ 
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DZTRAC.Pil Tes TEST BITO& OF TACS TAIT TAL 1ZE TO ZERO 


1512 003750 000005 2s: 





THE WORLD 






1513 714 000100 i 106, ,aTAcs + oP MBITOE CLEAR? 

is i “ERROR -- RESET DIDN’T CLEAR BITOG 
151 senrengll Taal aassessssssesneenenensl oan eda 
151 ETEST 26 TEST BITO4 OF TACS MAY BE “SET” ” 
1318 Shag Ot eetayypemenagnente 92-9 -ce ss t rpagmemmmamte. sg REI 
tei? nied neath 000020 € #BITO4, ITACS ;SET BITOY OF TACS 
1521 003770 052714 000020 BIT aBITOH, ,aTACS ‘DID BITOY SET? 
188 pear sari ERROR t Be A fife TO SET 
tos> BONG faerie poposp is: Be OB oa'otace NYO Bios CLEAR? 
138 tate 74h BA Hu oH +;BR IF ipl 
1528 OO4Ole 104001 ERROR BITOY OF TACS FAILED TO CLEAR 
1Se93 A pe Pe SE Ey enh 1. a MO Be 
1530 ikTEST 27 TEST BITOY OF TACS INITIALIZE TO ZERO 
1531 © KEKSKERELAASRRARAAAEAELEAAKALEREEK. RALAKAARARAEAE ELA LALERELEEAEE 
1532 o04014 +6127: SCOPE 
1533 004016 012767 oOO000S 175142 MOV TIMES ;;D0 S ITERATIONS 
1534 bov0ed 012714 o00020 1S: MOV setTod aTACS sSET BITOY OF _TACS 
1535 032714 000020 BIT #BITO4, aTACS “DID BITOY SET? 
1536 004034 001001 BNE 3 BR IF YES 
1537 004036 04001 ERROR | *BITOY FAILED TO SET 
1539 oo4040 oD0005 es: RESET sCLEAR THE WORLD 
1540 oo4o42 032714 000020 BIT #81704, ,aTACS aa pe BITO4 CLEAR? 

JU 

feud po4OSO 104001 FRROR | os OR -- RESET DION’T CLEAR BITO4 
1543 AA aay HE ETc ctr TC TE oe lbewlbi t g ea h 
iS44 T TEST BITO3 OF TACS MAY BE “SET” AND “CLEARE 
1S4S 4 © SELKAAKEAERLA LE RAAA AAA AA LEELA ALAR SLE RELA RARER RARE LARAAAE ELE LAEERE 
1545 oo40Se 900004 730: SCOPE 
1547 004054 052714 o00010 #81703, 3TACS ;SET BITO3 OF _TACS 
1548 004060 032714 000010 BIT #81T03, aTACS ‘DID BITO3 SET? 
1549 004064 001001 BNE 1$ :BR IF YES 
1550 004066 104001 ERROR 1 *BITO3 FAILED TO SET 
1552 004070 042714 000010 1S: BIC #B1T03, 3TACS ;NOW CLEAR IT 
1553 004074 14% O00010 BIT #81703, aTACS *DID BITO3 CLEAR? 
1554 004100 001401 Q ter 31 ;;BR IF 43 
i555 O04102 10400 ERROR 1 BITO3 OF TACS FAILED TO CLEAR 
1556 geet SR Ri A cA EC a Hm A, A lt’ Be 
1557 kT T TEST BITO3 OF TACS INITIALIZE TO ZERO 
1558 1 sade -+-+-+-+-lleeaheahrininlehahalaieiaiaiciaiaiaiaiaiaiaialairialaininiaiainiciate 
1a rater ea 175052 tBr3t ‘ -D0 S ITERATIONS 
1ee0 Boat 012714 anata 1S: MOV Hos ata as )|C” ;SET BIT03 OF TACS 
1562 004120 032714 000010 BIT Hef aTACS *DID BITO3 SET? 
1563 bowie 001001 BNE 2$ -BR IF ¥ 
158 3 ERROR 1 *BITO3 FAILED TO SET 
1566 004130 oo000s 2s: RESET CLEAR THE WORLD 
1567 004132 032714 O00010 BIT #B1T03, aTACS *DID BITO3 CLEAR? 
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001401 
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174762 
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000002 
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MAINDEC-11-DZTAA-C 
TEST BITO3 OF TACS INITIALIZE TO ZERO 


BEQ TST32 :;BR IF YES : 
ERROR RROR -- RESET DIDN’T CLEAR BITOZ 
ETT emer 
TEST 32 TEST BIT TACS MAY BE “SET” AND “CLEARED” 
a oR op. “SRS NINES 
BIS #8ITO2, aTACS :SET B1T02 OF TACS 
BI #81102, *STACS *DID BIT0e SET? 
BNE 1$ *BR IF YE 
ERROR | *BITO2 FAILED TO SET 
18: Me #BITO2, aTACS ;NOW CLEAR IT 
I $81 TO2, aTACS ‘DID BITO2 CLEAR? 
BEQ TST33 :;BR IF YES 
ERROR 1 -ERROR -- BITO2 OF TACS FAILED TO CLEAR 
BEBE HEHEHE HEHEHE EEE EEE eae 
TEST 33 TEST BITO2 OF TACS INITIALIZE TO ZERO 
« KELLFEEKELAELELAALAE RA HELA LHEALAFALEATSAASEAA KAS RELHRA ASAE EEK E ZEKE 
+6133: SCOPE 
MOV #5, STIMES ::D0 S ITERATIONS 
1S: MOV #BtTO2, aTACS sSET BITO2 OF TACS 
BIT #81702, JTACS ‘DID BITO2 SET? 
BNE 2s *BR IF YES 
ERROR 1 *BITO2 FAILED -TO SET 
2s: RESET CLEAR THE WORLD 
BIT #81702, ITACS DID BITOe CLEAR? 
BEQ TST34 :;BR IF YES 
ERROR RESET DIDN’T CLEAR BITO2 
ne en en 
TEST 34 TEST BITOL OF TACS MAY Dp” 
ic Faguat peeeeesataitatbeessssasiitesessssaatineesssaaihSeot0e8998 
BIS #B1TO1,aTACS ;SET BITO1 OF TACS 
BIT #81701, aTACS ‘DID BITOL SET? 
BNE 1$ BR IF 
ERROR *BITOL FATLED TO SET 
1S: BIC #BITO1,aTACS sNOW CLEAR IT 
BIT #81T01,aTACS ‘DID BITO1 CLEAR? 
BEQ TST3S ;;BR IF YES 
ERROR 1 sERROR -- BITOL OF TACS FAILED TO CL ex? 
TTT TT TETT TTT TTT TTT TTT TT TTT TTT TTT T ETT TT TOE TESETESTOSTE TESST EE 
iktesT 35 TEST BITO1 OF TACS INITIALIZE TO ZERO 
+ LETHE TLE LES RELA LAL KEELE L ELK K KEELES LL LANKA HALE RESHKE RELA SHEE RR ASA K KE 
+6135: SCOPE 
MOV TIMES ::D0 S ITERATIONS 
1S: MOV setTol. JTACS ;SET BITOL OF TACS 
BIT #BITO1,aTACS ‘DID BITOl SET? 
BNE 2s :BR IF YES 
ERROR | *BITO1 FAILED TO SET 
2s: RESET sCLEAR THE WORLD 
BIT #81701, 3TACS ?DID BITO! CLEAR? 
BEQ TST36 - s:BR IF YES 
ERROR sERROR -- RESET DIDN’T CLEAR BITO! 
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DZTAAC.P11 T36 COUNT PATTERN TO TACS<04:01> 


~ 


> © = b— b— Pb - p- b+ 9 ph ap ope 


SRoCREREREOGEND F 
888 
a9 


o<b— 
oo 


4 


+ 


SE 
- 


Sl a CONT PRITERN 10 TROD) Lk 


Te T 3% COUNT PATTERN TO TACS<04:01> 
jeseawbaneageenneenneeanesntesnesss cuss eos HEM HEOIMEMAPEOESHEHE 
ieee + 024370 174636 MOV #TST37,SESCAPE ;;ESCAPE TO TEST 37 ON ERROR 
005014 CLR aTACS ;SETUP TACS FOR COLNTING 
905000 CLR RO ‘SETUP RO FOR COUN UNTING 
012702 o0000e2 MOV ‘SET THE INCREME 
611401 13: MOV STAcs, R1 GET TACS 
701 177741 BIC #1C36,R1 ‘CLEAR: THE JUNK 
020100 CMP BIRO’ ;COUNT OK? 
001401 BEQ 2s :BR IF YES 
ERROR 5 *ERROR--BAD COUNT 
2s: ADD R2,RO : UPDATE 
060214 ~ ADD Re, aTACS COUNT TACS 
32700 O00036 BIT #36, RO *READY? 
001365 BNE *NO=-GO DO TEST COUNT PATTERN 
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Ht dddddddddddddddddddidddddddddddddddddddddddddddddddddddddddddddddddd 
LLL 
;THE FOLLOWING TESTS WILL CHECK THE INITIAL STATE ad ALL 

ih Throne THAT ARE DRIVE AND FUN om DEPENDENT 


; THE DRIVE -UNDERGOING TEST MUST BE 
LEAR LEADER AND WRITE ENABLED. 








LLL 
Da eee SUT OC a eee 

TEST 37 TEST INITIAL CONDITION OF TACS 1 
+5 laleieeleiehlleieleieiieiiieaeioelaniebiiabiae 


Hit SCOPE : 
MOV #1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
MOV. DRIVE, aTACS ;SELECT DRIVE 
1S: BIT e81T0S, aTACS :1S BITOS OF TACS = 1? 


BNE TST IF Yes 

ERROR 1 RROR -- BITOS OF TACS DIDN’T INITIALIZE PROPER 
ee Me 
7 4 TEST INITIAL CONDITION OF TACS BITOS = 0 
© SLL KELALAEFSEAAEE LE LALLA LER ERE CEA LALA A ARE SARA L ELAR RELAX HELA EES 


mon SCOPE 
HOV ‘ #1$, SLPADR ;;SET SCOPE LOOP ADDRESS 


MOV DRIVE, aTACS ;SELECT DRIVE 
1S: BIT #81709, JTACS *1S BITOS OF TACS = 0? 
BEQ TST41 3;BR IF YES 
sERROR -- BITOS OF TACS DIDN’T INITIALIZE PROPER 
PETTETTEETETETTETTTTTTTTT TUT TT ETT TTT T TTT ETTETT EET EST ETS ET SET T eT 
ETEST 4] TEST INITIAL. CONDITION OF TACS BITl2 = 0 
© KKEKKLLLA LAK AAA REL AREA ZE ELE LEKEAAAE SHAK SESLAA ZARA FRALREAAEEE REESE 


+éT41: SCOPE 
HOV ’ #15, SLPADR ;;SET SCOPE LOOP ADDRESS 
MOV DRIVE, aTACS i SELECT DRI 
BIS #uRITE, a7 ACS *LOAD WRITE FUNCTION 
1S: BIT #BIT12,aTACS *IS BIT12 OF TACS = 0? 
BEQ TST42 3;BR IF YES 
1 “ERROR -- BITI2 OF TACS DIDN’T INITIALIZE PROPER 


ERROR 
TIT tIiitTtiLitititiiLitiLiTethiteatrtuttLu 





;kTEST 42 TEST INITIAL CONDITION OF TACS BIT13 = 1 
Rr iit iititi ttt tit iittetitti ttt tit 


hises SCOPE 
HOV. : #1S,SLPADR ;;SET SCOPE LOOP ADDRESS 
MOV aTACS ELECT DRIVE 
1S: BIT aug JTACS it BIT13 OF TACS = 1? 


;ERROR -- BIT13 OF TACS DIDN’T INITIALIZE PROPER 
al — se el ESTA 1 
T 43 TEST INITIAL CONDITION OF TACS BITIS = 1 
 SEPSSETSESESLELEDENEEEUAESOSESEESESSESSRESSESoESSSERSESESEEEES 


jit SCOPE 
ee #1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
MOV DRIVE, aTACS ;SELECT DRIVE 
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TAlL BASIC C-11-D2TAA-C MACY11 27(732) 25-SEP-76 11:04 PAGE 42 
DZTAAC.P1I T43 TEST INITIAL CONDITION OF TACS BITIS = 1 
1704 SSOLSESAPTATTTTTTETATAATTAAAAT ATTA OTAAAT LAAT PALA PATATTA SAA TATA ASAT ASS 
] LLL 
1703 >THE FOLLOWING TESTS CHECKS EACH READ 
1704 BIT OF AC READ I 
705 Ahhh bi hbh bb hi hbhhiah hhh hh hbhhdhh bbb bbb hdgab bd hdebhh "4S ASSA LSA SAA 
1705 .3 REKFSKSE EEE ERLLS REL ERELS SER LKRGSSEFSSESEL ELE LS PEL SEAS SLERS SEE HSS 
l sTHIS TEST WILL TRY TO CHANGE THE STATE OF BITIS. 
1708 °T CK IT TO SEE IF IT 
1708 , eaumnnbagnpoerecnansnauenssunnennanensssthBORhODenOOORDSSSRENDS 
171] | T 44 TEST TACS BITIS IS READ ONLY 
1711 SSEFEEREREL FREESE ELERR EA EERE LA RE LSE XS RERERHESEE RAPA RLAELERESLE SS 
i7i¢ 004540 o00004 ; T44: SCOPE 
1713 004542 Ole767 OO4sS2 174336 MOV $1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
1714 004550 000005 RESET sINITIALIZE ALL BITS 
1715 04552 611400 1S: MOV JTACS, RO “GET TACS FOR COMPARING 
1716 04554 010001 MOV RO,R1 PUT STATUS IN Ri 
1717 004556 005101 COM R °C Ri 
1718 004560 077777 BIC 8tC<BITIS>,RO GET RID OF UNDESIRED BITS 
1719 bovebs 1 977777 BIC ##C<BITIS> (Ri 
1720 10114 MOV R1, aTACS sTRY TO CHANGE BITIS 
1721 004572 011401 MOV TTACS, RI *READ IT 
oer 042701 077777 BIC stC<BiTIS> RI “ONLY LOOK AT BITIS 
1 CMP RO. RI *DID IT CHANGE? 
OO4602 001401 BEQ TStus 3;BR IF AO 
DO4ED4 104001 ERROR 1 *ERROR -- BITIS 


5 HHH 
;THIS TEST WiLL TRY TO CHANGE THE STATE OF BITI4. 
; THEN CHECK IT CHANGED. 


1 
1355 

1724 

1725 

1358 

1728 TO SEE IF IT 

1723 $ TTT T TESTE TTTTISTT TTT TET ITETTTTTETTTETTTSTTT TTT TTT TTT TTT TTT TTT 
1730 ETE TEST 45 TEST TACS BITI4 IS READ ONLY 

173} ; j [SEEHIESSSSECHESEEREEDRESESEEEEEREEEEERSEEHHEEEREEERAREREREREEOS 
1733 Gove 1D Sez 004620 174270 aay re #1$, SLPADR 3;SET SCOPE LOOP ADDRESS 

1734 1 900005 RESET s INITIALIZE ALL BITS 
1735 BONESS 11400 1S: MOV QTACS, RO GET TACS FOR COMPARING 
1736 O04%622 010001 MOV RO,RI *PUT STATUS IN RI 

1737 oovees 005101 COM Ri’ °C Rl 

1738 042700 137777 BIC 8fC<BIT14> ,RO 3GET RID OF UNDESIRED BITS 
1739 e70h 137777 BIC tC ‘8 T14)°R1 

1740 10114 MOV TRY TO CHANGE BIT14 

ra po4642 pao7bt 137777 Bie athe at Rl READ © bok at AT gIT14 

1743 DoveHe 1 cre Fo Rl F OOD T TP CHANGE 

1744 1401 Q TSt46 3;BR IF NO 

1745 04652 104001 ERROR == BITI4 CHANGED 
1 Z8 oSKEKKEPSKSEHHRSHLELRA SLL AERRE SKS eeeeeehunaanes HSHSRELSRERAERELE 
174 sTHIS TEST WILL TRY TO, CHANGE THE $1 TATE OF BIT13. 

1748 *THEN CHECK IT TO SEE IF IT 

3 8 fuceeeeusecnoupesregmausseery asestesseseneseeneneneneeeeneeeeett 


a 


ST TACS BIT 
; "CO ep coer mepenncmes cn 


OOWEES 174222 81S, SLPADR + SET Score 
fies T 3 Tha tee ae Sorts 


1$: MOV aTACS,RO TACS FOR COMPARING 
MOV RO,R1 itt STATUS IN Rl 


aa 
at 
ma 





pn ee et eee ee 


ee a oe eee ene ~~ 
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72 0 





detgotnalgle| 
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S8IIISAIITAS 
ee 
pi 


Saat eRIaS 


2 


oOo 
Fao be 
= 
oO 
ie oe 


—— 
4 
S29 


Fo Bs Bs fs Be 





8 
é 


: 


Os bs an ba Be Bae pe Bae ee ae ee eee ee ee eee ese an et He ae Gee ne Hs eas ne eae ee Dns es nn He He f ot Pe ns Pas Pe ne Ho Hus f-2 h2 fs hw hs O~0 
Stetttaia fete Raa rrr 
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TAl] BASIC LOGIC_TEST (PART 1) 
T46 TEST TACS BI 


187777 
187777 


157777 


MAINDEC 


174154 


174106 
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AD ONLY 


Ri ;COMPLEMENT Ri 


CUM 
BIC gt C<BIT19» ,20 *GET RID OF UNDESIRED BITS 
IC #tC<BIT13>.Ri 
MOV RL a 5 “Ss TRY 19 CHANGE BITI3 
MOV aTACS.RI _ READ IT BACK é 
BIC #¢C<BiT13>, RI sONLY LOOK AT BITIS 
CMP RO.R jg IT CHANGE? 
BEQ TSt4 ;;BR IF 
1 *ERROR -- BIT13 CHANGED 


ERROR 
ett iti rit ittiiiiiitiiiiiiitiiittiittitritititittt tities 
;THIS TEST WILL TRY TO CHANGE THE STATE OF BITie2. 
T CK IT TO SEE IF IT 


jPERRELOEEROEEOERENALEATHEREEHEEOEEOEOOSRESEEEEEEEREREEEEEEEOEE 


tSTEST 47 


: ST TACS BIT12 IS 
ss SEEFEEFESLFLELELLELELALLELALELSALELLLLAAELLLARALLALERAAELALASLE 


téTu7: 

«| SS sanaton TET COE OP OE eT BITS 
1S: Ae aTACS,RO ANT 1okd7E B COMPARING 
MOV RO,R1 : PUT STATUS IN Ri 
COM 2C Ri 
BIC #1C<BIT12>,RO *GET RID OF UNDESIRED BITS 

BIC atCcBiTle> ,RL 
MOV Rl.@ sTRY TO CHANGE BIT12 
MOV aTACS. RI "READ IT BACK 
BIC stC<BiT12>,R1 ;ONLY LOOK AT BIT12 
CNP RO.R1 *DID IT CHANGE? 

Q TStsO 3;BR IF 0 
BERoR 1 *ERROR -- BITI2 


iiiiiiitiitiiiitiiitiiiiiiititiitiiiiiiiititiite tii ts 
;7HIS TEST MILL TRY TO CHANGE THE STATE OF BIT11. 


*THEN CHECK JT TO SEE IF IT CH ‘ 
+ JHE HHEHHHHEHHHHIHHH}HHGH HHH HHH HHH HHHHiHHEBHEE 
:&TEST SO TEST TACS BIT11 IS READ ONLY | 
ee Bae ee 

Boy he #1$, SLPADR :;SET SCOPE LOOP ADDRESS 

RESET s INITIALIZE ALL BITS 
1S: MOV JTACS,RO GET TACS FOR COMPARING 

MOV RO, Ri *PUT STATUS IN RI 

COM : Rl 

BIC 8tC<BIT11>,RO GET RID OF UNDESIRED BITS 

Ic atC< Aig}? oR 

MOV Ri.@ TRY TO CHANGE BIT11 

Bre etccetTil> RI LY LOOR AT BITL 

RO, RI ‘ On ti CHANGE ? 


T3t8l 3;8R IF Ko 


=~ BIT11 CHANGED 
tttititiiiiiiiiiiiiiiiiiiiitiiititiitiiitiiitiettitit et 
;THIS TEST W bt TRY TO CHANGE TATE OF BIT1O. 
THEN SEE IF IT 


j HHHENSHEOESSERSSRSEEOSSENOESSHESEOCHOSORLEREEEENERESEREEOEHEES 
iii 


+751 
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TALI ett LOGIC TEST (PART 1) MAINDEC-11-DZTAA-C 
DZTAAC.P TS! TEST TACS BITIO IS READ ONLY 


tt 012767 OOSOSO 174040 MOV #1$, SLPADR 3 3SET SCOPE LOOP ADDRESS 





SET NIT 

Ht eee pies a a Ie fb ddan 

1 V PUT STATUS IN Ri 
HG BESS! BiBIES aperr A Beggs PHY Beesueo os 
: He? 4 175777 ¢ #tC<BIT1O> RI : wneie 
iee0 seca MOV REXO $1 HANGe 
gee o¥e701 175777 BIC stat Ri ONLY LOOK AT _BIT10 
16s 1401 so POEs ;;BR IF ib mateo: 
i 104001 OR 1 ERROR -- BITIO CHANGED 
td ene eee ae 
1828 * THEN check IT TO SEE IF IT CHANGED. 
186) TA iii ess et cilia 
Hat 005104 00004 Ca mee naenie “yet nema 
j 106 7? 00S116 173772 V #1$, SLPADR ; SET 
ies pei 0 RESET ae : SOIRIVYALIoE ALL BITS ALL BITS 
1835 005116 011400 1S: MOV BTACS, RO 
1836 00S 129 10001 MOV RO,R1° ‘Por ooee oink Ri 
i 0051 101 COM R 1 
1838 Oos1e pve700 176777 BIC meee: RO GET RID OF UNDESIRED BITS 
1533 poerse brsita Bhy sarees sTRY TO CHANGE BITOS 
1841 0051 3 011401 MOV READ IT BACK 
1842 005140 042701 176777 BIC sTAs aT Ri “ONLY LOOK AT _g1T09 
1843 005144 1 CMP RO,R1 “DID IT CHANGE? 
1844 005146 001401 BEQ TSts3 ;;BR IF flO 
1845 0051S0 10400! ERROR 1 -- = 81709 CHANGED 
1846 5 | SHEE HHHEHEEHEEHBEEHHEGEHE pert Crereeenerrit ferent rr 
1847 sTHIS TEST T MILL TRY I 0 CHANGE THE STATE OF BITO7. 
gag steeeerieaesenes KLERSAHLUSSSELEUHREEE JHHBMHHHHHBEHHEHEHEEEEHEHEES 
850 TEST TACS BITO7 IS READ 
851 005152 900004 iceetusdyaeeerttsanisiniesceesesassaaeneceeeeesssaasninaet 

7 


eg crepe Aeetee ReeeT cagpeaglies _ ROT lL BITS BITS 6 


11400 1S: MOV aTACS,RO 


164 
DOS 1 1 RO, Ri’ BUT. STAT oN Rl 
DOS 1 177577 Bre BtC<BITO?>, RO GET D OF UNDESIRED BITS 


Ce Se ee ee ee a 









177577 BtC<BIT07>, "Al 
R TACS sTRY TO CHANGE BITO7 
1 a *READ IT BACK 
O05¢08 1 177577 BIC siccetTOr>, RI sONLY LOOK AT BITO7 
1 1 RO.RI *DID IT CHANGE? 
005214 00140! BEQ TStS4 3;BR IF 
005216 104001 -- 


1s Honeenecanenneuneuncnecuensneaeaneaylaesteaneaseaneanenients 
TEST WILL TRY TO CHANGE THE STATE OF BITOS. 
‘THEN CHECK IT TO SEE IF IT CHANGED. 


PPPERLRERRAR RONG 
=e 
33 


ee ee ee ey 


_—— 


ES 





LOGIC_TEST (PART 1) 
TEST Tacs. 


O0S232 173656 


177737 
177737 


177737 
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tzeaenternrecennnstrgrgrgreananasnsnnneere 


TACS BITOS IS READ ONLY 
Rg epee» “ramen pempmmmeneee 


#1$, SLPADR 


aTACcs,RO 
RO. »RL’ 


#tC<BITOS> ,RO 
RL giAcs yR1 


secetibs, Rl 
RO,R 
Tats 
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GNITIALIZE ALL ALL “a11s 
tet 3 FOR DS hence 


1 
CET RID OF UNDESIRED BITS 
;TRY TO CHANGE BITOS 
: T BACK 
sONLY LOOK AT BITOS 
*DID IT CHANGE? 


;ERROR -- BITOS CHANGED 








iF 
= 


a 


(DO LD.D 050 50 50 0 10.8 DB 5B sO 0D) G9 CD 6 OD G09 OD 
se ee 
eiiiiiniasiae tet te Bes 
= -— DOD “3 
~ 
oO 


wwwow 





== pan be pee 
Wwrur& 


bp 
0.0.00 .0W 
pest ony aot a4 
Nous 


To 
wo 





fos Ee i 2 


SESIEIRREE NCS BE ENE 


ee 
| 





S 


ss 


o8 
Bas 


e 


=: 
- 
~ 
£ 


R 
7 
£ 


ry 

é 
8 

fh 


4 000400 


173610 


173556 


173642 


173606 


173606 


173546 
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Addddddddddddddddddddddddddddddddddddddddddddddddeddddddedddddddsgesds 
SLOLILOIILLLLILLLL LILI LULL LL LILO LILLLIILLLULLILLLILUL ELLA SALA LLLULL 

3 THE taney TESTS WILL CHECK FOR DUAL AND/OR FAULTY SELECTION 

:0F THE TAl1 ADDRESSES 

PLLA ddd ddd dddddddbddbddddddddddddbddddddddbdddddd 
55 ESE 48 98 9 9 J 9 a a 


;#TEST 55 TEST HIGH BY L OF TACS 
HE ann yt me ae 


TSS: 
#1$,SLPADR 3;SET ped LOOP ADDRESS 


18: SO1TOE» aTACcs i eT ts BITO2 
a ad ; HE HIGH BYTE 
BIT sei aTACcs fee BITOe STILL SET? 


EREOR P — = CLRB TO HIGH BYTE OF TACS CLEARED LOW BYTE 
arti teed canrnennransnvnnel bel cSt 


ETE TEST LOW BYTE SELECTION OF TACS 
b EeseaneeanenubiahesnecaeeGsiesniuseraeEaHeeanEaanEanEaaHEsES 


ler #15, SLPADR ;;SET SCOPE LOOP ADDRESS 
1S: MOV sort ,@TACS Pee: Brite OF TACS 

CLRB TE LOH BYTE BYTE OF TACS 

Bi T6 ni » TACSH BR I e ie e BITUE TACS STILL SET? 

ERROR - TO LOW BYTE OF TACS CLEARED THE HIGH BYTE 
33 sree acl vneaoenrnrcernl ita ea 


;RTEST 57 TEST “OUT LOW” SIGNAL 
2 HeneeHREuREOHLESTENEEEEGALSSATSAEOEOAESOEEOEEREOOEEOEEEEOES 


‘ 8TST&0,SESCAPE ;;ESCAPE TO TEST 60 ON ERROR 
CLR T + ZERO THE TALL STATUS 
BIT spa eaeyeone aTAC 


ERROR 
ee ig HMB ESET a BS cig erie 


BEQ 

ERROR rat Ore. PHPROPERLY SELECTED 
: sso alae tO NEE 
kTES TEST “OUT HIGH” SIGNAL 
(ong geerpmensenercpmiomernsereneraace 


tére0 STAs »SESCAPE ;;ESCAPE TO TO eet ERROR 


MOV 
cue aTAC TATUS 
BIT tt INT. ent restFuncTIiacs aTAcs 


Q 
pea 1 ; DIDN’T CLEAR PROPERL 
1S: AGUB #81708, aTACS +60 Lou BYTE DE OF TACS 
ae F ine BtT08 GET SET? 
3? 


1 E IMPROPERLY SELEC 

eypeeennneuwetennepeesnunsenunsnaaesinatuaanesaanesanestiae 
TEST “SELECT ISN’T STUCK 

Le peer ethers terrier orth eeeree een T rrr Tne 


BIT #81708, JTACS 
BE' TST61 


tiTEs 









TAL] BASIC LOGIC TEST ¢ 
OZTAAC.P11 61 


33 
is 


1347 
1949 





uae 


oS 
BS 





se: 


ea po 
u 
t= 
et at 


a3 


ie 
££ 


ae 


ty 

4 
ir 

aia 

—r- 


Bn fat hee 

- 
a 
3 


- 


De ot ee eee 


aeees 


een 
aS 


Raes 
-= 
=e 


— 
= 
1 






33 


-— 

8 

Ge 
foe 


tas bas he 






So 


RSE PRR EN Tt ist su RC RERARR Cd aed aaa ca aaa ia case: 





ee 
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AUNT! INT. En? LES! FUNCTION, eTACS 


1, aTADB : 
UNIT! INT. EN# ILBS! FUNCTION 
= sTACS CHANGED WHEN LOADING TADB 


2S-SEP-76 11:04 PAGE 47 


;;ESCAPE TO TEST 62 ON ERROR 


AR TAlL STATUS 
;TACS DIDN’T CLEAR PROPERLY 
THE DATA BUFFER 


TACS 
nee DIDN’T CHANGE 


s LELELELLLLLLALALAALLALA ELLE LELERA LLL LALA ELLE LE LE RARELERALEAALLES 


55 ESR SESE ESE EEE 9 9 J A A SE ESE 
TEST “ERROR” FOR “CLEAR LEADER” 
| IHMHHHHEHHHHEHHHHHHHHHHHHHE HI HHHHIHHHHEHHIEHHIEHHEEHEHHEEEHE 





PART 1) MAINDEC-11-DZTAA-C 
TEST “SELECT OO” ISN'T STUCK 
TST61: SCOPE 
oossob 9173510 MOV 8TST62, SESCAPE 
000536 gf 
BEQ 
ERROR 1 
177776 1S: MOV etc 
000536 BIT 4 
BEQ TST62 
ERROR 1 
: TEST 62 
tetbe: HOV DRIVE, aTACS 
o20000 BIT SLEADER, JTACS 
En | 
ERROR 1 
00000 1S: MOVE &sWFG,aTACS 
TST aTacs 
BMI 2s 
cooon2 2s ove’ A URITE aTACS 
° 9 
TST aTACS 
BMI 
000004 3$ ie $READ aTAcs 
TST aTAcs’ 
BMI 
ERROR 1 
000006 4S: MOVE  &BSFG,aTACS 
: TST aTACS 
BMI cs 
000010 cs ROVE doses aTacs 
° 2 
TST aTacs 
BMI 6S 
000012 6$ fovB isrec aTACS 
TST aTacs’ 
BMI 7s 
000014 7S: MOVB sSFBG,aTACS 
TST aTAcs’ 
BMI 8S 
ERROR 1 
000016 8S: MOVB § SREWIND,@TACS 
TST aTAC 
BPL ST 
ERROR 1 


Se 
SanazaMaS ARSE 
Seer 

B “3 SR OS 


: 


" 


“SFFG” 


em 
R 


PODS SS Sl SS SE SF SO SF SESS SESE St Seesewe wee eeesese 
3 8 
w" n" 7 
: : 


ESR 
@ 


2 
oe 
rT 3 1) 

=— 

8S 
ws: 
ag 

3 


a3 
be 
x 
3 
S 
5 





UD eOULOuING Test INSURES THAT IMG STATE OF IME CERRO [NOICATOR 15 





Tal] BASIC 
DZTAARC.Pil 
1998 
65g 
; 20 
e002 
2007 poeees 12767 
2003 005660 te 
gio pp bs 1276 
ll 1033"! 
sole 00S67e 00',001 
2013 005674 012700 
cols Oie7a) Lert 
puis ier Gier4 
2017 OO0S7le O0Se01 
cule Oieris Gols73 
e0e0 ope 38 1371 
Gieree e714 
zee Oieve Oni0 
ON Ore Gers 
BNE pore 104001 
2027 
2028 
e023 
aay 00S742 o00004 
piss Gieree Berar 
2035 proves 12767 
2037 biSai4 
2038 eae 012700 
erty 
a rea ah 
oo Bosal 1373 
eo Died 2 i 
Bd 001001 
2048 104001 
2050 tat 
$e) iets 001401 
e0se 
2053 


LOGIC TEST (PART i) 
Tée 


bose78 


005742 


144 
17 


0000'10 
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TEST “ERROR” FOR “CLEAR LEADER” 


173314 
173 


473300 


173214 
173126 


173200 


SCOALA IITITTTATTAATATTTTSATTAAAA TTA AA AAT AAAT PATA LTTAA ATTA AA ATS AA AAAS 
SU 
; THE FOLLOWING, TE TS W LL CHECK OF THE 

*"REWIND” AND “WRITE FILE GAP” FUNCTIONS. 
SOOPTIIITAATSAAATAAAATAATAAAATA TATA ETA AAA TAAA ATTA TATA AAAS ASAT ALAS 
5 s RRELELALLELALELLALALALLLALLLEL ALLL ALLA LE AAALAL LALA AE LLELE RLLLES 
SKTEST 63 T THAT “READY” N” TED 
RT ee ee en aaeae 


t$163: 
MOV #5, STIMES D0 5 ITERATIONS 
HOV ‘ #3$, SLPADR SET SCOPE LOOP ADDRESS 
MOV STSTE4,SESCAPE ;;ESCAPE TO TEST 64 ON ERROR 
: MOV IVE, aTACS ;SELECT DRIVE 
CLR “WASTE SOME TIME 
NOV #100. ,RO 
MOVB #REWIND'GO, aTACS sSTART A REWIND 
1$: BIT #READY, aTACS ;SAMPLE READY 
BNE 3 GET OUT IF READY IS SET 
INC Rl 
BNE 1$ 
DEC RO 
BNE 1§ 
BIT #READY, ATACS sIS “READY” BIT SET? 
BNE 2s ?BR IF YES 
ERROR | *ERROR--"READY” BIT DIDN’T SET 
2s: BIT #LEADER, JTACS “CHECK FOR CLEAR LEADER 
BNE TSTb ;:BR IF 
5 
“AFTER DOING A REWIND 
itiiiititiittiitiiiititttitiittiiitiiiiu 
TEST 64 TEST THAT “READY” SETS WHEN “WR GAP" IS COMPLETED 
© ELASREREXARARERAA LARA ERAAA KSLA A AA ARRSAA LAA RAR LE RELA AER KKEKAAES 
tS164: SCOPE 
#5, STIMES ;;D0_S ITERATIONS 
HOV é #3$, SLPADR *:SET SCOPE LOOP ADDRESS 
MOV #TSTES,SESCAPE ;;ESCAPE TO TEST 65 ON ERROR 
3S: MOV DRIVE, aTACS ;SELECT DRIVE 
CLR Ri *WASTE SOME TIME 
MOV #100. .RO 
MOVB sWFG!GO. aTACS ;START A WEG 
1S: BIT #READY, JTACS :SAMPLE READY 
BNE 2S :GET OUT IF READY IS SET 
INC Rl 
'. BNE 1g 
DEC RO 
BNE 1$ 
BIT READY, ATACS :1S “READY” BIT SET? 
BNE 23 *BR IF YES 
ERROR 1 *ERROR@-"READY” BIT DION’T SET 
2S: BIT #LEADER, ATACS “CHECK FOR CLEAR LEADER 
BEQ TSTES :;BR IF CLEAR 
ERROR ON CLEAR LE 


LEADER 
;AFTER DOING A WRITE FILE GAP 
itrtriiiii ittttitiiitttttttiiitiiitititiiititttiitiitit tits) 
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TAL! BASIC LOGT¢ 
TEST “READY” CLEARS WHEN STARTING A “REWIND” FUNCTION 


000005 173114 


dl 


== b= pn pee 
tus 


os 
am 


— 


8 


SS aaa 


7 
siicee taeda nasa Sic iotatiataiatats Bree eee ee 
yy TEVO VOR ERO EHSRERRERT ERE REeZd= 


3 
ny 
x 


=——OO 
BN 


be 


8 
Dh he he 
£ cust 


R 


8 
8 


: 


o 
3 


: 


= uy 
NN 


5 


pes hee 

< 
ee 
tnecnet 


8 
2 


a 


fast 
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;#TEST 65 TEST “READY” CLEARS WHEN STARTING A “REWIND” FUNCTION 
©  SESELEREERRLELREA ALES EEK AREAEL AL AELS LEE AE LAKE RAAKE REE REKLERLELEEE 
TST6S: SCOPE 
MOV #5, STIMES ;;00 S ITERATIONS 
RESET 
MOV #1 Ri SET TIMER 
MOV IVE, aTACS *SELECT DRIVE 
WAT TREADY | :WAIT FOR TREADY™ 
MOVB #REWIND!GO,aTACS “START A “REWIND” 
18: BIT —_ #READY, aTAts jCHECK “READY” BIT 
;;8R IF “READY” = ue 
] 31S TIME UP? 
1$ °BR IF 


NO 

ERROR 1 “"READY" FAILED TO CLEAR 

PTSTTTTECESTTTTST OTST TTT TTT TTT TT TTT ET ETE S TTT E TITS TTS TT TEE S| 
TEST “READY” CLEARS WHEN START “ 


tLTEST 66 FILE GAP” FUNCTION 


FFL iit 1h 
‘ HOV . #5, STIMES ;;D0 5 ITERATIONS 

MOV #1,R1 SET TIMER 

MOY ean ve aTACS BATT FOR “READY™ 

MOVB  &sWFG!GO,aTACS :START A “WRITE FILE GAP” 
1$: BIT —- SREADY, ATACS CHECK “READY” BIT 

BEQ TST&7 ;;BR IF “READY” = 0 

ASL 1S TIME UP? 

BNE 1§ 3B NO 

ERR *"READY" FAILED TO CLEAR 


5 JHE HEHEHE SIGE 


TEST 67 TEST THAT “RESET” CANNOT ABORT A “REWIND” 

© LELLAALAE RAK RLA AKA CAA KRKELAKERELELLALERA LARA KALE LELELRALELALEEE 

+5167: SCOPE : 
MOV #1, STIMES ;;D0 1 ITERATION 
HOV é #5$, SESCAPE >:ESCAPE TO S$ ON ERROR 
tenor veaTCS SEL enero 10 se 
nove #REWIND!GO,aTACS +L WIND A a 

2s: BIT BREADY, BTACS ;WAIT FOR READY TO CLEAR 
INCB = (PC) + 

3S: 0 
BNE 2g 

% ERROR I s"READY” FAILED TO CLEAR 


“TRY TO STOP REWIND 
>SELECT DRIVE 

21S READY SET? 

*BR IF NO 


"READY" WAS SET 
S$: TREADY *WAIT ON READY TO.SET 
ONS eee 
2AS 200K AS Yat CLEARS i ae 1S PERFORMED (WHICH SHOULD 

CLEAR THE FUNCTION AND SET READY) THEN “READY” IS EXAMINED 


RESE 
BIS DRIVE, JTACS 
BI #READY, JTACS 
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TEST THAT “RESET” CANNOT ABORT A “REWIND” 


bee 
moO 


OGIC_TEST (PART 
ee 


are 
a 


p> b-- b+ & = ps 
o> = b+ bb Poh pb = ps 


WONWU£ WTO 


006264 17cb32 
006332 172706 


os 


ay 


eee eee eee TU uuererererenrure 
FEO OD NE CoO OD UOT ETOH DONO RE Estee Od SOMO Leone eo 
cS scenes | Beemer 


000001 172532 








;T0 INSURE THAT IT IS SET 


33 RELALALALAARRELA LASHES FRELEAALAAAES LA RAAF RA FERAL ERLAE LLL SALE LLES 
TEST 70 TEST “RESET” WILL ABORT A “WRITE FILE GAP” 
; sca Sp PRM Ee, | seereaermere reste: 
MOV aS STINES ;;00_5 ITERAT 
MOV #1$, $LP $30 SCOPE sons ADDRESS 
HOV. ; set SESCAPE ItESCAPE TO TEST 71 ON ERROR 
1S: MOV DRIVE, JTACS sSELECT DRIVE 
WAI TREADY ‘WAIT ON READY 
HOVE #WFG!GO,aTACS :START A WRITE FILE GAP FUNCTION 
23: BIT READY, JTACS ;WAIT FOR READY TO CLEAR 
BEQ 4§ ‘BR IF READY 0 
. INCE (PC)+ ‘WASTE SOME TIME 
SNE 2s 
ERROR | ;"READY” FAILED TO CLEAR 
4§: RESET *KILL WRITE FILE GAP 
MOV DRIVE, aTACS 
BIT #READY, JTACS 
TST71 s3BR IF “RESET™ SET SREY" 
oR 1 “READY” DIDN’T SET 
$ jepeesaahibtensdreeepesnasnunrpeesannpsbesuaaientenasnsisieesass 
T 71 TEST “WEG” AND “REWIND” FOR NO ERRORS 
; 7 nay, sepieumgeacspemamemnmant ter 
MOV #5, STIMES 3300 5 ITERATIONS 
MOV #1 “SET SCOPE LOOP ADDRESS 
HOV #75172, SESCAPE : t ECcape TO TEST 72 ON ERROR 
MOV DRIVE, aTACS 
1$: MOVB_—_ SREWIND!G0,aTACS ;G0 TO “CLEAR LEADER” 
WAITREADY 360 WAIT FOR “READY” TO SET 
TST aTACS *IS “ERROR” SET? 
BPL 25 BR IF NO 
ERROR 1 "ERROR" = 1 AFTER “REWIND” 
2s: BIT #LEADER, JTACS : i15 “CLEAR LEADER” = 1? 
ERROR 1 *NOT ON “CLEAR LEADER” AFTER “REWIND” 
3S: MOVB _ SWFG!GO,aTACS GET OFF OF “CLEAR LEADER 
WAITREAD *GO WAIT FOR "READY" TO SET 
BIT #ERROR! LEADER, JTACS se E OFF OF TOLER LEADER” 
BEQ +4 *BR IF "WEG" MOVED TAPE WITH NO “ERROR™ 
ERROR 1 "WG" FAILED 


7 HHHHHHHHHH HE HEIHBGHBEHGHBEE HEHEHE HEHEHE HEE HEHEHE 
sTHIS ISN’T A REAL TEST oT A SMALL ROUTINE TO DETERMINE THE MAX 
; TIME FOR THE WAIT LOOPS (WAIT FOR “READY” AND TRANSFER REQUEST") 
55 eS 9 9 9 9 A EEE EEE 
;*TEST 72 ROUTINE TO DETERMINE TIME OF WAIT LOOPS . 

2 GHBEHHEHHHE EHH HHEHH EEE HHH HHH HEE HHHEHHEEHEEEHEE 


tét72: SCOPE 
MOV #1,STIMES ;;D0 1 ITERATION 








434 37 
440 001021 


TALI it LOGIC TEST (PART 1) 
DZTARC.P T7e 


001100 


012116 


MAINDEC-11-DZTAA-C 
ROUTINE TO DETERMINE TIME OF WAIT LOOPS 


Olell6 


ROL 


TST 
BNE 


9sSPASS 

TST73 

DRIVE,@ 

are MIA! 60 Saracs 
ara G0, 3TACS 


pete lt QsMAXCNT 


aeMAXCNT 


MACYL1 27(732) 


;;8R IF 








25-SEP-76 11:04 PAGE 51 


ise THIS THE FIRST PASS? 


;SELECT THE DRIVE 

START A REWIND 

;WAIT FOR READY 

sHRITE A FILE GAP 
WAIT_ON READY 

GET THE TIME IT TOOK 

MAKE IT BIGGER 
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LOGIC_TEST (PART 


000005 1724Se 
006600 172446 


000017 
020000 


900010 
000040 


000001 
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ROUT NE TO DETERMINE TIME OF WAIT LOOPS ; 


172350 
172262 
172336 


AA ddddddddddddddddidddddddddddddddddddddddddiddddddddddddddedddseddd 
WLLL UL UL LLL 
; OLLOWING TESTS ARE USED TO CHECK VAR TIONS WHEN AT “CLEAR LEADER” 
WL dddddadddddddaaaaddaaddddddidaaa 

5 REHEARSE REE EEE EERE EE EE REE EER REE EE EEE EEE EERE 
;ATEST 73 TEST THAT “CLEAR LEADER” GOES FALSE ON “REWIND” 

RO eegaeste apier mnenin parent eeeses ms comer eee? 


+6373: SCOPE 
MOV #5, STIMES ;;D0 5 ITERATIONS 
MOV #6$, SESCAPE ESCAPE TO 6$ ON ERROR 
MOV DRIVE, @ ;SELECT DRIVE 
MOVB RENE! GO. aTAcs *GO TO CLEAR LEADER 
WAITREADY 5G0 WAIT FOR READY" TO SET 
BIT #LEADER, JTACS sAT “CLEAR LEADER” 
BNE 2s YES 
ERROR 1 te RROR--NOT AT CLEAR LEADER 
2s: INc STACS ‘START ANOTHER REWIND 
38: grr BREADY ,@TACS ;WAIT ON “READY” TO CLEAR 
INCB (PC) + 
4$: 0 
BNE 3$ 
ERROR 1 "READY" FAILED TO CLEAR 
cS: BIT SLEADER,aTACS - :DID “CLEAR LEADER” GO FALSE? 
BEQ BS , *BR IF YES 
ERROR : CLEAR LEADER DIDN’T CLEAR 
6S: CL SESCAPE ‘ 
Sect. NI en: Aatcm  .e  RL ATS 
TEST 74 TEST FOR “CLEAR LEADER ERROR” FOR “WRITE FILE GAP FUNCTION” 
i SHHIOREESEROEEERSSHESEDESESEOREDSEEARESSRNSEDSEOESEERENETEORSS 
MOV #5, STIMES ;300 5_ ITERATIONS. 
MOV #1$ SLPADR *SET SCOPE LOOP ADDRESS 
HOV #1St75, SESCAPE : ESCAPE TO TEST 75 ON ERROR 
MOV DRIVE, aTACS sSELECT DRIVE 
WAITREADY “MAKE SURE TA11 IS READY 
MOVB _#REWIND+G0,3TACS *LOAD REWIND AND GO 
WAI TREADY GO WAIT FOR “READY” TO SET 
1S: MOV #1 
MOV bat VE aTACS 
MOVB ria aTACS START A WRITE FILE GAP FUNCTION 
38: BIT #READY, JTACS WAIT ON READY TO CLEAR 
BEQ 4 
ASL RO 
BPL 3$ 
4g; RESET 
MOV DRIVE, 3TACS ;SELECT DRIVE 
MOVE _#WFG!GO, aTACS ‘START A WRITE FILE GAP FUNCTION 
WAITREADY }G0 WAIT FOR "READY" TO SET 
TST aTACS ‘DID ERROR BIT SET? 
BMI 2s ‘BR IF YES 
ERROR 1 "ERROR" BIT (BITIS) FAILED TO SET 












2271 


Bee SERERRRA 


MAINDEC=11-DZTAA-C 


TALI ast LOST al (PART 1) 
DZTAAC.Pil TEST FOR “CLEAR LEADER ERROR” FOR “WRITE FILE GAP FUNCTION” 


oo0c0s 172234 


2280 
og 


bebe 
NZ 
= = po p= 
£rusce 


R 


8 
B 


: 
4 


~ 

a2 
w) 

Siete: 


+6177: 
#5,STIMES 4 ;;D0 S ITERATIONS 
MOV #1,R1 “sSET TIMER 
MOV DRIVE, aTACS *SELECT DRIVE 
TREADY WAIT FOR “READY” 
MOVB  #BSFG!GO,aTACS START A “BACK SPACE FILE GAP” 
1S: BIT — #READY, atACS CHECK “READY” BIT 
BEQ TST100° ;;BR IF “READY” = 
ASL Ri 18 TIME UP? 
BNE 1$ F 


o0000S 172066 


¢éT100: SCOPE 
" MOV 8S, STIMES :;D0 S ITERATIONS 
RESET 
MOV #1,R1 ;SET TIMER 
MOV ORIVE, aTACS ‘SELECT DRIVE 
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2: BiT sLEADER, aTACS “HOM ABOUT CLEAR LEADER BIT 
BNE TST75 *:BR IF SET 





LEADER” NOT SET 
TTT TTTPErererrerrrerTrrrrr TT rrrer rrr rt ett reeer Terr Pere rit rt t et 









‘TEST T 75 TEST “READY” CLEARS WHEN STARTING A “WRITE” FUNCTION 
FUT lt +1 lalaiieiieielaiiieiieeiiieiebeaiiioeibe 
MOV #5, STIMES :;D0 S ITERATIONS 
RESET 
MOV #1,R1 SET TIMER 
MOV DRIVE, aTACS *SELECT DRIVE 
WAITREADY “WAIT FOR “READY” 
MOVB #WRITE!GO,aTACS ‘START A “WRITE” 
1$: BIT — SREADY, JTACS _e {CHECK “READY” BIT 
BEQ TST76 -:BR IF “READY” = 0 





NO 
ERROR 1 “READY” FAILED TO CLEAR 
sans nee aalanaaannnsnssnnnennennanksle star HEED 9, ERR, 





















TEST 76 TEST “READY” CLEARS WHEN STARTING A “READ” FUNCTION 
HF d+! ieee 
MOV #5, STIMES ;;D0 S ITERATIONS 
RESET 
MOV #1,R1 ;SET TIMER 
MOV DRIVE, aTACS *SELECT DRIVE 
WAITREADY ;WAIT FOR “READY” 
MOVB  #READ!GO, aTACS START A "R 
1$: BIT #READY, ATACS *CHECK “READY” BIT 
BEQ TS177 ° 3;BR IF “READY” = O 


ERROR 1 “READY” FAILED TO CLEAR 

saananneie OB caadaannnesananesnennennnnnbsts ota TEED TO, CLERR, 
iktesT 77 TEST “READY” CLEARS WHEN STARTING A “BACK SPACE FILE GAP” FUNCTION 

Te ma “Tuer fe sapcaaee tt ~caemaelaanareaamamasameccences rte ima 


NO 
1 ADY” FAILED TO CLEAR 
; jeepeesbnstoosadaaaappeerepeeeneensnassl nnn anrerbenansait 
‘ATE TEST “READY” CLEARS WHEN STARTING A “BACK SPACE BLOCK Gap FUNCTION 
cSLREAEASASASAAEEEHONSEREEEASEONOEAEEOEEESEERESOSEAEEEIAERERED 








a i pn 


TAIL BASIC LOGIC TEST (PART 1) MAINDEC-11-D2TRA~C MACYIL 271732)’ 25- SEP-7¢ 11:04 PAGE S4 
OZTARC.PL! TIO | TEST “READY™ CLEARS WHEN STARTING A “BACK SPACE BLOCK GAP” FUNCTION 
104412 WAITREADY sWAIT FOR “READY” 
2291 132744 00011 MOVE #8S86!G0, aTACS ;START A “BACK SPACE ‘BLOCK GAP” 
32714 900040 18: BIT — sREADY,atacs jCHECK “READY” B17 : 
2293 001403 BE TSTI101 ;:BR IF “READY” = 
O06391 ASL R 15 TINE “UP? 
2295 00137 NO 
104001 ERROR 1 ADY” FAILED TO CLEAR 
: peneeny nee sslanvenseneensvnnsnxensnehe nese ene REGED TO CLE $# 
tSTEST 101 TEST “READY” CLEARS WHEN STARTING A “SPACE FORWARD FILE GAP™ FUNCTION 
S SFEKESRIFSSSERELERESLESESASESAELSAEASERALAASLRRESEHAAESAASLASSLELEE 
ooc004 $8T101: SCOPE 
piere7 oo000S 172024 HOY , #5, STIMES :;D0 5 ITERATIONS 
012701 000001 MOV #1,R1 SET TINER 
010314 MOV DRIVE, aTACS *SELECT DRIVE 
104412 WAT Y “WAIT FOR “READY” 
112714 000013 MOVB  sSFFG!GO, aTACS :START A “SPACE FORWARD -FILE GAP” 
b3e7 14 090040 1S: BIT READY, aTACS iSHECK. “READY” BIT 
I BEQ TST102 ;;BR IF “READY” 
006301 R1 15 TIME uP? 
001373 BNE 1§ -BR I 
104001 OR He 


LEAR 

; HEHEHE HEHEHE HHH EHEHE HEHEHE GEE HEHEHGHEE EEE 
TE EST 102 TEST “READY” CLEARS WHEN STARTING A “SPACE FORWARD BLOCK GAP™ FUNCTION 

 LLEEEEERERREEELE ELLE EEE EERA EERE LAL AEEE EAE A EERE EERE SHELLS EE EER EE 


00004 téTio2: SCOPE 
O1e767 000005 171762 HOV aS, STIMES ;;D0 S ITERATIONS 
12701 000001 MOV R ;SET TIMER 
10314 MOV Date, aTACS ; SELEC at DRIVE 
10441 shart FOR, “READY” 
14 000015 MOVB 6596109 aTACS START 8 “SPACE FORWARD BLOCK GAP 
14 000040 1S: BIT tacs i auE CK “READY” BIT 
1403 BEQ TST103° 3;BR IF *READY" = 0 
1 ASL RL id TIME UP? 
1373 BNE 6:18 
104001 ERROR “READY” FAILED TO CLEPA 


1 
; seppeeestovooastoeesreeereenessssuaneesbetanerestanitneTpectcee 
i iE TEST FOR “CLEAR LEADER ERROR” FOR “WRITE FUNCTION” 
;SERAAEESANEEAESEEAEREAESEOESSESHEAEEOEEEEOESAEOTOEEAD GHOSE 


tér103 

“MOV” 8S, STINE $300 5.1 

mov =a § SCOPE LOOP RODRESS 
HOV ststiou, SEScAPE {ESCAPE TO TEST 104 ON ERROR ‘ 
MOV . 


DRIVE, aTACS ;SELECT DRIVE 
WAT TREADY ; 
UAITREADY ,@TACS ; W 


1S: MOV 81,80 
ae 
3s: aie seo saTACS ;WAIT ON READY TO CLEAR 


S 
ante 


FT ee CoRR SER CR UO UU Noster Ta Soe IeRE ERE aeMeoReS E 











000017 HOVE #REWIND+G0, aTACS 'LOAD REWIND AND GO 


TALL BASIC LOGIC TEST (PART 1) MAINDEC-11-DZTAA-C MACY11 27(732) 25-SEP-76 11:04 PAGE SS 
DZTAAC.P1l T103 TEST FOR “CLEAR LEADER ERROR” FOR “WRITE FUNCTION” 
346 007322 p9005 ug; RESET 
? 10314 MOV DRIVE aTACS sSELECT DRIVE 
il 14 p99003 MOVB  sWRITE!GO,aTACS *START A WRITE FUNCTION 
1 l MOV #1,R0 ‘WAIT A WHILE FOR XFER REQ. 
236 105714 S$: TSTB = ATACS *XFER REQ = 1? 
31 BMI 6$ *BR IF YES 
2 : INC ‘WAITED LONG ENOUGH? 
1374. BNE S$ :BR IF NO 
l 18 6$: TST 3TADB CLEAR TRANSFER REQ. 
10441 UBT FREAD GO WAIT FOR “READY” TO SET 
2356 007352 0s? 1s TST SrAcs sDID ERROR BIT SET? 
5325 Soo see 104001 ERROR I ERROR” BIT (BIT1S) FAILED TO SET 
2359 007360 032714 o20000 2s: BIT SLEADER, JTACS *HOW ABOUT CLEAR LEADER BIT 
2360 00764 001901 BNE TST104 3;BR IF SET 
2361 104001 oR 1 -=CLEAR NOT SET 
2362 ss PTT TTT TET TTT TT TET TTT TTT TT TTT TTT TTT TTT TT TTT TET TTTETTT ST TTT TTT TTT 
ext: TEST 104 ST FOR * FOR "READ FUNCTION™ 
oo ePEHARSELSSEFRRELE RE SE LKBKKSERSRLERAE GELLAR ASALSAESLERLTEPASRASES 
2365 907370 po0004 tST104: SCOPE 
22665 12767 O0000S 171566 MOV #5, STIMES ;;00_S ITERATIONS 
2367 007400 Ole767 007430 171500 MOV #1$. SLPADR >:SET SCOPE LOOP 5 
e358 gore 12767 007504 171554 HOV STST10S,SESCAPE :;ESCAPE TO TEST 10S ON ERROR 
2370 007416 010314 MOV DRIVE, TACS sSELECT DRIVE 
2371 eee 104412 WAITREADY *MAKE SURE TALI IS READY 
Ee fires thats 7 reso fAONCaTACS EERIE SMEaBE ro ser 
2374 0074 o1 5 000001 1S: MOV $1,R0 : 
2375 OO7434 010314 MOV DRIVE aTACS 
2376 007436 112714 o00005 MOVB  #READ'GO. aTACS ;START A READ FUNCTION 
Sire oo7442 e 14 900040 3s feo BREADY, aTACS *WAIT ON READY TO CLEAR 
2380 ne BPL 3$ 
oe 10314 4S: RB oparve. atacs T DRIVE 
5 j att ooo00s MO pre aB ao stacs ELEY A READ FUNCTION 
2384 12 WAI :GO WAIT FOR “READY” TO SET 
2385 007466 14 TST aTACS DID BIT SET? 
2386 o7470 100401 I 2s *BR IF YES 
2387 0074 04001 I *"ERROR” BIT (BITIS) FAILED TO SET 
2388 74 14 2s: IT SLEADER, JTACS *HOW ABOUT CLEAR LEADER BIT 
e203 p I : TST1OS ;3BR IF SET teva 
2331 33 POET TTTETSTETOTETET TT ETT TTT TTT TTT TET TTT TTTTETETTETT EST T TST TT TTT 
TEST 105 TEST FOR “CLEAR LEADER ERROR" FOR “BACK SPACE FILE GAP FUNCTION™ 
} “Ooo TO aan gpmer on e-rrrnpe pr cegecgregee rE. 
12767 171452 : aoy : #5, STI 3:D0 S ITERATIONS 
ee Gort 12767 ana 171364 MOV #18 SLPEBR >:SET SCOPE NS ADDRESS 
2397 O075e2 7 007620 171440 HOV : 8TSt106,SESCAPE ;;ESCAPE TO TEST 105 ON ERROR 
5335 povese Batata HOV _ DRIVE, aTACS SELECT DRIVE 
2400 007534 104412 WAI TREADY SURE TAL! IS READY 
| 2401 007536 112714 
i 








-4 
AD 

~ 
| a 
ae 
a 
tee 
-—o, 


TT 





: 


eee eyy 
0-2 0 bp pe 
DONC CUWfhrH-O 
SR 
~-“ 
ag 

—— Ce £7 £ 


: 


| od aed, =} 
& 

bob pe 
fut 


z 


oo~ 
eas 
- 


=e 


-— 
Be 
££ 


Papas 


fer SVE 


8= 


58 
35 
Se oad 


8 
ae 


ee a 


EAT TATA 
SS) Waseem | ore 


= 
8 
ros 
<< 


Be; 
| 


LOGIC, TEST (PART 1) 
T1105 =—s TEST FOR 
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“CLEAR LEADER ERROR” FOR “BACK SPACE FILE GAP FUNCTION” 





a Wi TREADY . 360 WAIT FOR “READY” TO SET 
Rov 120 SFacs sSTART A BACK SPACE FILE GAP FUNCTION 
3S: BI wes Op eace WAIT ON READY TO CLEAR 
ASL 
BPL 
4$: RESET 
MOV DRIVE aTACS sSELECT DRIVE 
HOVE tere 160, aTACS START A BACK »BPACE FILE GAP FUNCTION 
Hes ope te 
ERROR | baer a (BIT1S) FAILED TO SET 
2s: BIT BLEADER, aTACS CLEAR LEADER BIT 
BNE TST106 BR IF ps 
1 LEADER” NOT SET 
8 jsavesesoneeonessneanesssauesneneennashaeageenienuensnenienty KEE 
STE TEST FOR “CLEAR LEADER ERROR” FOR “BACK SPACE BLOCK GAP FUNCTION” 
i eeosataceauesuteaesunenscensenstestenneentenunenneesneoneesses 
MOV as STIMES $300, S ITERATIONS 
MOV SLPADR *SET SCOPE LOOP ADDRESS 
HOV svetior, SESCAPE 1 Be cppe TO TEST 107 ON ERROR 
MOV DRIVE, @TACS CT ORI 
WAITREADY inex Sure we, 15 READY 
MOVE _ #REWIND+G0, 3TACS 
WAI TREADY ito bart FOR oReRBY TO SET 
1S: MOV #1, RO 
MOV DRIVE aTACS 
MOVE wG08G160 aTACs sSTART A BACK SPACE BLOCK GAP FUNCTION 
3S: BIT ¥, aTACS *WAIT ON Y TO CLEAR 
BEQ Ws 
ASL RO 
us: RESET 
MOV DRIVE STACS ;SELECT DRIVE 
Hove #8586!G0, aTACS ; ist ART 8 K SPACE BLOCK GAP FUNCTION 
Hal READY OR srEnOY™ TO SET 
- TS aTACS oo Want ERROR BIT 
Enon I iB a IT (BITIS) FAILED TO SET 
2s: IT SLEADER, ATACS CLEAR LEADER BI 
BNE TST107 3;BR IF in 


CLEAR LEADER” NOT SET 

; seme nanaateleutsesemmuminemnamialattienetettrettitiies 
Sitest. 107 « TEST FOR “CLEAR LEADER ERROR” FOR “SPACE FWD FILE GAP FUNCTION” 
j esseuessseuseneieeuenseeeiessecesesecsssnnensseevecsenuensenees 

MOV ;;00 5S 

HOV STS SCPEOR ti ReT SCOPE LOSE ADORE 

HOV sTstiio, SESCAPE ;;ESCAPE TO TEST 110 a ERROR 

MOV DRIVE, aTACS ;SELECT DRIVE 
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TEST FOR “CLEAR LEADER ERROR” FOR “SPACE FWO FILE GAP FUNCTION” 


000017 
000001 


th 


000013 


Se UUUL 


000005 170772 
010206 170704 


WAITREADY sMAKE SURE TALI IS READY 
Nove #REWIND+G0, JTACS "LOAD REWIND AND GO 
WAITREADY GO WAIT FOR “READY” TO SET 
1S: MOV 8 0 
MOV t pOTACS 
MOVB  #SFFG!GO. JTACS sSTART A SPACE FWD FILE GAP FUNCTION 
38: BIT #READY, aTACS ‘WAIT ON READY TO CLE 
BEQ 4§ ae 
ASL RO 
BP 3$ 
4§ RESE 
hiatal SELECT DRIVE 
- #SFFG!GO,aJTACS >START A SPACE FWD FILE GAP FUNCTION 
WA °GO WAIT FOR “READY” TO SET 
st DID ERROR BIT SET? 
y Ee AOR B IT (BITIS) FAILED TO SET 
2s: IT #LEADER, aTACS BLT Re BF 
BNE TST110 3;BR IF a 


; ,; HeRMERSSOESEUEERHANAEEEEEEREEEEEEEEHEEiAS TEE TEREETEEESTHET SHEE 
s#TEST 110 TEST FOR “CLEAR LEADER ERROR” FOR “SPACE FWD BLOCK GAP FUNCTION” 
1 Sr“ ae pancetta eameaanaaimmemnatt ann tance 


téT1i0: SCOPE vay ’ 

MOV STSSSLPADR S87 "SROBE' 1 Oop ADORE 

és nov STStiil, SESCAPE *:ESCAPE TO TEST 111 oe ERROR 

MOV DRIVE, aTACS ;SELECT DRIVE 

WAITREADY "MAKE SURE TA11 IS READY 

MOVB __ #REWIND+G0,3TACS "LOAD REMIND AND GO 

WALTREADY *GO WAIT FOR “READY” TO SET 
1S: MOV R90 

MOV bat sOTACS 

MOVE  sSFBG!GO, aTACS sSTaaT A SPACE FWD BLOCK GAP FUNCTION 
3S: BIT #READY, JTACS WAIT ON READY TO CLEAR 

BEQ 4§ 

ASL RO 

BPL 3$ 
4S: RESET 

MOV DRIVE  @TACS ;SELECT DRIVE 

MOVE _ #SFBG!GO, aTACS START A FWD BLOCK GAP FUNCTION 

wt on OF TACs AOD EER oer ee 7 . 

BMI 3 : iF Wee 

: T (BITIS) FAILED TO SET 


2s ae ; aTacs SWB ROUT CLERA LEADER BIT 
‘ ote STAT " jsBR IF SET 


LEADER" NOT SET 
jsuveerenreneeateaevesvanvesveseesnesyiavesneovennentenneatenst 


tETEST 111 Y 

OS rag pe egeengcames caste yao gimane mainte tect mer 
MOV as STINES $300, S ITERATIONS 
HOY #1$, $i *SET SCOPE LOOP ADDRESS 
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I 
TEST “GO” BIT 


1 Le eee 
1 bigeet 1 Toso Foie o : hears 


2519 104412 es: ATTREADY sWALT ON "READY" 


ars 


ooo 


x 
hm bas pe bene De pee 


Ses pao pas Ome Bas 
wMscutcrwy 


Oooo900000O00o 
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eet od 
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SOOPSSSAPTAITPTPTTAATALATTTAAAAAT ATTA TATA AAESTAETS TAAL A ATA AAA AAAS ASA SS 
SLALILOLIOLILLISLELLILLLEL LILO LI LLL LLL LLLBLULLLI LIL ILLS LLL LI LLOI LLL 


TION OF “TRANSFER REQUEST” 


"Bor H { 
ELLE 


ETE 
tit 


MOV 
8s: MOVB 
MOV 


TSTB 


es: INC 


4§: 


SS: 
BTS. 

TS 
BPL 
ERROR 
WA 
TST 


6S: 


IREMINOVGO, aTAcs 
WAI TREADY 

MOVE ——s SWF G+G0, JTACS 
WAITREADY 

RESET 


j Feenenngeannsesnngtonsussestazensecestanssepnscsusssegeosnesnen 
TEST TRANSFER REQUEST & ILBS FOR “WRI 
ed ca eee ace 


tiGer tobe Lor ADDRESS 


;;ESCAPE TO TEST 113 ON ERROR 


;SELECT DRIVE 

INSURE DRIVE IS READY 

G0 TO BOT 

GO WAIT FOR “READY” TO SET 
:GET OFF OF CLEAR LEADER 
G0 WAIT FOR “READY” TO SET 


;LOAD “WRITE FUNCTION 
sKILL A LITTLE TIME 


; INSURE XFER REQ=0 - 
:XFER REQ. SET BEFORE “GO” 
;SET "GO" 


;KILL A LITTLE TIME 


itr CK THAT XFER EQ=1 
XFER a3. FAILED TO SET 
K DOWN XFER REQ. 


;CHECK THAT “XFER REQ” IS CLEAR 
iXFER REQ FAILED TO CLEAR 


T ON RITE Re REQUEST” TO SET 


;BR 
;"ILBS" DIDN'T CLEAR “XFER REQ” 
My! A: FOR “READY” TO SET 


s48R IF fig 


CURRED 
ie 


tRTEST 11 113 


ST “TRANSFER REQ” 
TTL yl °°" Spann eeanenereremmmaneenceir ements 


+1113 


MOV 
MOV 





3300 10. ITERATIONS 
4S. OPE LOOP ADDRESS 
sTSt114, SESCAPE t ESCAPE TO TEST 114 ON ERROR 





~ 
| ol aoe) 
—c) 


§ 


RUSE REE sg aibascacphas 
ee : 


REQE 


g 


Mer £ Ear £6 UI) ££ SUI fu or fu 


oO .£cMo 
realy 
— 


aero ane HENNE 
os 


: 
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TEST “TRANSFER REQ” AND “ILBS” FOR “READ” 


000017 


010546 


177777 


RESET 
DRIVE, aTACS ;SELECT DRIVE 
ove, aTACS GREEK REROY 
WAI TREADY :GO WAIT FOR “READY” TO SET 
MOVB _ SWFG!GO,aTACS GET OFF OF =CLEFR, LEADER” 
WAI TREADY 90 WAIT ON ” 
MOVE _ SWRITE!GO, aTACS ART A ohrte 
WAITXFER 
MOVB __ 8377, aTADB ;WRITE ON TAPE 
WAITXFER 
#377, JTADB ;WRITE ON TAPE 
are #ILBS,aTACS 
| OTF TREADY 
4$: MOVB _ BREWIND!GO, 3TACS 
WAI TREADY 
#READ!GO, aTACS ;START A READ x 
WAITXFER *GO WAIT ON “TRANSFER REQUEST” TO SET 
TS aTADB “CLEAR XFER REQ 
TSTB 3s ATACS :DID XFER REQ CLEAR? 
2g BR IF YES 
on | : REQ FAILED TO CLEAR 
25 WAITXFER :GO WAIT ON “TRANSFER REQUEST” TO SET 
BIS #ILBS, JTACS *START ILBS--CLEARS XFER REQ 
TSTB 3s ATACS DID XFER REQ CLEAR? 
OR r ; Red FAILED TO CLEAR 
I T for a3 T 


rr JE HEHEHE HHH HE HEHEHE HEHEHE HEHEHE HERE 
S$TEST 114 TEST THAT TADB (READ BUFFER) INITIALIZES *10 0’S 
1 adel 1-1-4-+-laelelalahalalalleleieiahaiaeloleinisiniainilelaisinisieieeieisisiaisleleieisisisieleeisioieiaiale 


+éT114: SCOPE 
HOV $1$, SLPAOR ;;SET SCOPE LOOP ADDRESS 
1S: MOV -PUT TADB IN RO 
BEQ ‘srl ; CHECK FOR ALL ZEROS 


; javveneeaveneess epeevesceaneneeneesnenelarennenrotentansaneates 
ATES T 11S TEST TADS (WRITE BUFFER) FOR WRITE ONLY 
: PEREAEEEAEEEAELEDERESSSANSSESSGGSESEOEASEOASOEEEESETEREREEEREDE 


téT115: SCOPE 
#-1, TADS sLOAD TADB WITH 1°S 
HOY aTADB, RO ‘PUT TADB IN RO 
BEQ TSTLI6 ;;BR IF tT DIDN’T CHANGE 
ERROR 6 s ERROR 











a2 
=e 


e624 
Sese Ditere Biever 
010600 012767 
AAS 
10614 
S31 Oloess 112714 
Su Hee tick 
Se Gloss 100i 
2635 010634 Ol 
2636 tees 112714 
2637 O10644 104413 
2640 bibeee 011501 
Su Hee ip 
Seas Oloseo | 104007 
2644 010662 106300 
2645 010664 103370 
2646 Bites 152714 
e647 010672 104412 
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MAINDEC-11-DZTAA-C 
FLOAT A "1" THROUGH TADB 


H hh hah daha llalalas teh bb tab tahtatetal tet bah etal at tab talahalalelalalalalalalelalalalalelalelalelalalelal 
FLOAT A “1” THROUGH T 
+ LEEERLELLEERLEAE LALLA REAR RELA EERE RAL EAA REL ELLRELE RES RELA LAER LE 


MACY11 27(732) 


:ATEST 116 
téT1i6: SCO 
MOV #10. ,STIMES 
MOV #1$, $LPADR 
MOV #45; SESCAPE 
RESET 
MOV DRIVE, 
HOVE an aREMIAG!GO,, aTACS 
HOVE an! $HFG!GO, 2TACS 
18: MOV HF RO 
HOVE #WRITE!GO, aTACS 
2s: HOVE RO, JTADB 
MOV JTADB,R1 
CMPB se RO, RI 
BEQ 3$ 
-ERROR 7 
33: ASLB RO 
BCC 2g 
ug: BISB _‘#ILBS,aTACS 
WAI TREADY 
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;;D0_ 10. ITERATIONS 
;;SET SC LOOP 
;;ESCAPE TO 4$ ON ERROR 





WAIT Pe “reRDY" TO SET 
TIALIZE THE PATTERN 
WRITE FUNCTION 
ON“ TRANSFER REQUEST” TO SET 
BUFFER 


TRANSFER REQUEST” 
ER 





serous 
53 


sWRITE C 
3GO WAIT FOR “READY” TO SET 
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on 
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BEN" 
ar 
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z 
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: 
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0” THROUGH TADB 
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> $3 RKKKKKRARKFRRAAKEKLELERAE 
~ S&TEST 117 FLOAT A 
© o RRRERERELSREERRKRLERELREREAAA REALE SLR LAER ERARE SARA L ARE REF LALLA FSLLE 


- $8117: Scope 
: HOV 


18: 


2s: 


33: 
48: 


idbtebdeldebd-bbdib bE EE Edd 
“0” THROUGH 


;;00_10. ITERATIONS 
3;SET SCOPE LOOP ADDRESS 
;;ESCAPE TO 4S ON ERROR 
MOVE —s #WFG!GO,aTACS 
WAITREADY 


#-2,R0 
#WRITE!GO, aTACS 


BCS es 
BISB #ILBS,aTACS ;WR 
WAITREADY ;G0 WAIT FOR “READY” TO SET 

















Ra LOGIC, H T (PART Pen) ee a =. MACY11 27(732) 25-SEP-76 11:04 PAGE 63 


2674 $3 AEE AEH EREEAAHESEEEERY ESLER EERE EEE EE 
3% 

Sere 1 ; To weaengmmeeng peer pemenmanentccsn ce 

$e Biiboe Biers? oooo1e 170156 #10. ,STINES 5 ;D0_ 10. ITERATIONS 
2679 011010 012767 011044 170070 MOY 1S; $LPADR ;SET SCOPE LOOP ADORESS 
e680 011018 16/67 O11074 170144 MOY. #45, SESCAFE {JESCAPE TO 4S ON ERROR 
e682 01100 010314 MOV DRIVE, aTACS 
2683 011030 112714 000017 MOVE __ SREWIND!GO, JTACS ;POSITION THE TAPE 
2684 011034 104412 WAI TREADY ;G0 WAIT FOR “READY” 10 SET 
e685 D103 11e714 000001 MOVE ap tlFc!Go, aTAcs jGET OFF OF “CLEAR LEADER” 
See? Ollow Obs000 1s: GR RO HYNITIALIZE THE COUNT PATTERN 
2688 Ol ioe i1e714 000003 : HOVE pttRITE!GO, aTACS j START A WRITE FUNCTION ow 10 cer 
Beso Oliosy logis 28: HOVE. RO, STADE toa Tho WRITE BUFFER 
2691 011056 104413 WA TXF ;WAIT ON “TRANSFER REQUEST” 
Be HGS Quist ee at” al 
see 0110s 104008 te AR i BR de eTROB NOT EQUAL RO 
5697 011072 01370 ae ee :HG0e TF NON EERO 
2698 O11074 152714 000020 4s: BISB dices, aTacs ;WRITE C 
2699 011100 104412 WAI TREADY ;G0 WAIT FOR “READY” TO SET 
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DZTAAC.P11 Tl21 — END OF TEST CODE 


















5op0 FY EXKEKEREEKE REESE EEE LEE EERE EEE REE EEL EE EEE ERE EE REESE EEE EAE ER ELELE 
S4TEST 121 END OF TEST CODE 
2702 ee EEXKKEKLKAL RAE ESE SEE ERE ELLA ELA RAE E AE ERE EES EEEERELELEFAELEAEEEEE 
e703 911102 t$T121: SCOPE 
11] le767 O00001 170054 MOV #1, STIMES ::D0 1 ITERATION 
2705 Olll12 o09005 RE 
2706 O11114 910314 MOV DRIVE, aTACS ;SELECT DRIVE 
2707 011116 112714 000017 MOVB _ #REWIND!GO,aTACS 
2708 Olli22e 104412 WAI TREADY 
e708 .SBTTL END OF PASS ROUTINE 
e711 53 EXLKEERREKKEEE EERE ERLE HE LEEK KEL ELLA LEE E REESE RES ELA RA AL EL ERE ELEL 
27le *kINCREMENT THE PASS NUMBER (SPASS) 
2713 TYPE "END PASS” 
2714 :%IF THERES A MONITOR GO TO IT 
2715 t%IF THERE ISN’T JUMP TO START 
2716 t#IF IT IS DESIRED TO HAVE A BELL INDICATE THE “END OF PASS” LOCATION 
717 ?#SENDMG CAN BE CHANGED TO 7. 
2719 011124 SEOP: 
2720 O1l1e4 oo0004 SCOPE 
2721 Ollle6 O0S067 167750 CLR STSTNM ;;ZERO THE TEST NUMBER 
27ee Olll32 005067 170030 CLR STIMES ::2ERO THE NUMBER OF ITERATIONS 
2723 O11135 goseb7 167736 . INC SPASS *: INCREMENT THE PASS NUMBER 
2724 O111 2767 100000 167730 BIC #100000,$PASS ;DON’T ALLOW A NEG. NUMBER 
2725 011150 005327 DEC (PC)+ + :LOOP? 
o7eb 011152 90000 SEOPCT: .WORD 1 
2727 011154 00301 BGT $DOAGN :;YES 
2728 O11156 O1 MOV (PC)+,a(PC)+  $;RESTORE COUNTER 
2729 011160 O00001 SENDCT: . 1 
2730 Ollige 011152 SEOPCT 
ak Be Ae Bere, mY SESE onto rs 
5335 abe ata BEG ge.k + BRANCH if NO MONITOR 
2734 011176 O00005 RESET *:CLEAR THE WORLD 
2735 11200 004710 SENDAD: JSR PC, (RO) :G0 TO MONITOR 
2736 Ollede O00240 NOP ::SAVE ROOM 
2737 011204 O00240 NOP 
2738 011206 000240 NOP *?ACT1I 
2739 011210 SDOAGN: 
2740 011210 000137 JMP a(PC)+ : RETURN 
2741 Olliele o02234 SRTNAD: .WORD START 
2742 011214 377 377 000 $ENULL: .BYTE -1,-1,0 -:NULL CHARACTER STRING 
2743 011217 Bis o42412 O42116 SENDMG: :ASCIZ <15><12>/eNnD pass? 
2744 Ollce4 OSO040 OS51501 O00123 











SCOPE HANDLER ROUTINE 
a -SBTTL SCOPE HANDLER ROUTINE 
3 5p RRR ERIE EEE ERR EERE EERE EEE EEE EE EIR EEE EE EE 
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o748 :&THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
seen $EOID LOAD THE TEST MUPBERCSTSING INTO THE DISPLAY fC. (DISPLAY<7:0)) 
eel 581 THE SUITCH OPT TONS PROVIDED BY THIS ROUTINE ARE: 

2753 + = INHIBIT ITERATIONS 

2754 pag LOOP AN ERERR 

He 5 eaue=t LOOP ON TEST IN SWR<7:0> 

oes 3 SCOPE ;;SCOPESIOT 

ee 011232 SSCOPE: 

2760 Olleze 104406 CKSWR si TEST FOR CHANGE IN SOFT-SWR 

2761 Olle34 032777 O4O000 167676 1S: BIT #BIT14, ISWR LOOP ON PRESENT TEST? 

2762 Olle¥2 OO1111 BNE V 2 

2763 -#uHeHSTART OF CODE FOR THE XOR tdsrenta 

2764 011244 O00416 $xTSTR: BR 6$ SIF RUNNING ON THE "XOR” TESTER CHANGE 

See 01124 013746 000004 HOY HERRVEC-($P) i TMS IN INSTRUCTION TO A'NOPE, (NoP= eNO) 

2767 O11 Ole737 O11e72 ooo004 MOV HSS, JHERRVEC ::SET FOR TIMEOUT 

2768 O11 177 TST 38177060 :: TIME OUT ON XOR? 

5790 OliseD pntes BR, SEVER RES RTT THE NEXT TESTO 

2771 Bt tse S$: CMP tep y+, (SP)+ *?CLEAR THE STACK AFTER A TIME OUT 

ors otts00 pAoies OO HOV (GP)+,QRERRVEC |; ;RESTORE THE ERROR VECTOR 

2774 Bt tse 6$:;##8HBEND OF CODE FOR THE XOR’ EOE naene 

2775 011302 000400 167630 BIT #81708, JSWR ;sLOOP ON SPEC. TEST? 

2776 011310 O01404 BEQ He 

2777 Oiisie 127767 167622 167562 che OSHA, STSTNN 550N THE EIGHT TEST? SWR<7:0> 

ore a: 011322 105767 167555 2s: TSTB  SERFLG ; }HAS AN ERROR OCCURRED? 

2780 011326 001421 BEQ 35 *BR IF NO 

e78l 011330 126767 167561 167545 CHP SERIAX, SERFLG {AX ERRORS FOR THIS TEST OCCURRED? 

e783 O10 o3277? 001000 167572 BIT #81709, SUR 3 ;LOOP ON ERROR? 

2785 011350 016767 167534 167530 7S: HOV SLPERR, SLPADR :SET LOOP ADDRESS TO LAST SCOPE 

ore 011360 105067 167517 4S: CLRB  SERFLG 53 ZERO, THE ERROR FLAG 

ores bliae0 bobMis Oe ceet«CSg MES SHERRIE MUREER OF EIRATIONS TO MAKE 
e730 011378 032777 OO4000 167540 3S:. BIT #G1T11, 3SUR s INATBTY ITERATIONS? 

cree lida Bere? ssrv7e fet Sess 1] FRET ass oF Proc 
2794 O1i4i0 OO5eb/ 167470 INC SICNT i INCREMENT ITERATION COUNT 
| 2795 o1i4s4 6767 167546 167462 CHP STINES, SICNT ss CHECK THE Nu NUMBER ER OF ITERATIONS MADE 

ee 011424 ea 000001 167452 1S: MOV #1, SICNT HREINITIALIZE Re TERATION COUNTER 
2798 011432 016767 OOOO44 167526 MOV SMXCNT,STIMES 3;SET NBER OF F be ERATIONS TO DO 

2799 O11440 105267 167436 SSVLAD: INCB $TSTNM tECOUNT T T NUMBERS 
| 2800 O11444 011667 167436 MOV (SP), SLPADR SAVE SCOPE LOOP ADDRESS 





NOS 
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DZTAAC.Pil SCOPE HANDLER ROUTINE 
2801 O11450 O11667 167434 MOV (SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 
11454 005067 bprese CLR SESCAPE pian THE ESCAPE FROM ERROR ADDRESS re 
11460 112767 000001 167427 MOVB SERMAX ;;ONLY ALLOW 4 AED ERROR ON NEXT TEST N: 
2804 O11466 016777 167410 167446 SOVER: MOV StSth aDISPLAY DISPLAY TEST ER ae 
2805 011474 016716 167406 MOV SLPADR, (SP) ; ;EUDGE RETURN ADDRESS ¥ 
2805 011500 RTI ;;FIXES PS f 
e807 011502 903720 SMXCNT: 2000. ;;NAX. NUMBER OF ITERATIONS f 
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ERROR HANDLER ROUTINE 
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167400 
167370 


167322 
1673le 
167330 


167276 


ooco42 















.SBTTL ERROR HANDLER ROUTINE 
£ y RESSEFSRELSRAERELELSAASSELARL LESS SREFAAASAEFLELSESAFSLELSALESE 
:#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;#SAVE THE ERROR ITEM CrenEN AND THE ADDRESS OF THE ERROR CALL 
3# 0 TO TYPERR ON ERROR 
s#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE GRE: 
3#SW1S=1 HAL oN R - 
:#SWla=l INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERROR 
= LOOP ON 
ie ERROR N s ;ERRORSEMT AND N=ERROR ITEM NUMBER 


* CKSHR :;TEST FOR CHANGE IN SOFT-SUR 
BCS S8SREGO ; T 


3 

e- 

=z 

o 

<< 
Bue 
t BR 


'R1 WILL CONTAIN THE BAD DATA 


Bree sees 
& 


78: B  SERFLG :;SET THE ERROR F 
7§ >:DON’T LET THE FLAG GO TO ZERO 
STSTNH, 901 Y ::DISPLAY TEST NUMBER AND ERROR FLAG 
T10, 2 ON ERROR? 
1§ 33;NO - SKIP 
TYPE SBELL >:RING BELL 
1S: INC SERTTL >:COUNT THE NUMBER OF ERRORS 
MOV (SP). SERRPC *:GET SS OF ERROR INSTRUCTION 
SUB 82, SERRPC 
MOVE aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #BIT13, aSWR >:SKIP TYPEOUT IF SET 
BNE 205 SKIP TYPEOUTS 
JSR PC. TYPERR ::G0 TO USER ERROR ROUTINE 
‘tt TYPE =, SCRLF 
2s: TST aSWR ;;HALT ON ERROR 
BPL 3 SKIP IF CONTINUE 
HALT >:HALT ON ERROR! 
CKSWR TEST FOR CHANGE IN SOFT-SWR 
33: BIT 881709, aSWR $3LC0P ON ERROR SWITCH SET? 
MOV SLPERR, (SP) * FUDGE RETURN FOR LOOPING 
4g: TST APE *:CHECK FOR AN ESCAPE ADDRESS 
BEQ :BR IF NONE 
fe MOV SESCAPE,(SP)  3;FUDGE RETURN ADDRESS FOR ESCAPE 
CMP #SENDAD,2#42  ;;ACT-11 AUTO-ACCEPT? 
BNE § ;;BRANCH IF NO 
- HALT s3YES 
RTI ; ;RETURN 
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1676 10440i 001177 
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170% 11 001114 
1710 

i7le 
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104401 001177 
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BRIRRS DRE RON 
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1 00S710 

Boge Tovar 012010 
12006 000771 

12010 Oe0040 ooo 


PSEC CELL L SERPS BREE UAL Le data 


MAINDEC-11-D2TAA-C 
ERROR TYPEOUT ROUTINE 
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;THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 


TYPERR: TYPE SCRLF 
MOV RO. -(SP) 
MOVE asSITEMB,RO 
DEC RO 
ASL RO 
ASL RO 
ASL RO 
ADD #SERRTB, RO 
MOV (RO)+, 1$ 
TYPE 

1$: 0 
TYPE SCRLF 
MOV tRO)+,28 
BEQ 3$ 
TYPE 

2s: 0 
TYPE SCRLF 

3S: MOV tRO)+,RO 
BNE cs 

4§: MOV (SP)+.RO 
TYPE SCRLF 
RTS PC 

Ss: 
MOV 3(RO)+,-(SP) 
TYPOC 
TST (RO} 
BEQ ug 
TYPE &$ 
BR &$ 

6S: ASCIZ 7 / 
EVEN 


3;G0 TYPE 


sie A CARRIAGE RETURN & LINE FEED 


IBICKUP THE ITEA INDEX 
PAOJUST THE INDE 


X 


790 IT WILL WORK FOR 
ERROR TABLE 


+ THE 


sFORM THE TABLE POINTER 
;PICKUP “ERROR MESSAGE” POINTER 
;TYPE “ERROR MESSAGE™ 

;"ERROR MESSAGE POINTER” GOES HERE 


;PICKUP “DATA HEADER™ POINTER 
;1F “0” DON’T TYPE 


:TYPE “DATA 


HEADER 
;"DATA HEADER” POINTER GOES HERE 


sPICKUP “DATA POINTER® 
;I1F THERE IS DATA TO TYPE GO DO IT 


RESTORE 


TERMINATOR? 


(OR IF_YES 
‘TYPE 2 SPACES 
'ASCII STRING OF 2 SPACES 


TYPE A CARRAGE RETURNSLINE FEED 
RETURN 


PE 3 acmn)+ FOR TYPEOUT 
3; TYPE DATA 
--OCTAL ASCII(ALL DIGITS) 















oO 

‘of 
oe 
=r) 
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ROUTINE TO WAIT ON THE READY BIT TO SET 

















ess 32 EREERESERLIVELFPREEEEFEFLAALFS GE LFELSEF SAE ESELELEL ISS E ERE FEISS ES 
28% ‘ROUTINE TO WAIT ON THE READY BIT 
Seo D1sc14 005067 HAT ON TR ALTE SETUP MAX. TIME TO WAIT ON “READY™ 
5500 TE 16767 000072 o00044 MOV MAXCNT, HGHTIM { . 
e301 b1e0e8 MOV (SP)4+. dasavec sGET THE PC OF THE WAITREADY INSTRUCTION 
i _— aay ( - ae vps SAVE THE PS 
503 see 14 0 WAITI: Bey (50) /SaSre te aByet 
1 001013 WAIT GO ON IF YES 
1 105714 TSTB = @TAC *CHECK TRANSFER REQUEST 
1 1pRone BPL WAIT4 
2998 1 O4CO4 ERROR 4 ae - s"TRANSFER REQUEST” SET WHILE WAITING ON “READY” 
S303 1ee Oo0? WAIT4: INC (PC)+ sCOUNT FAST COUNTER 
2911 1e0es WAIT2: O 
e3le 1 1 BNE WAITL :GO CHECK “READY” AGAIN 
291 12079 DEC (PC)+ :COUNT LOOP COUNTER 
2314 O1 000000 ‘HGHTIM: 0 
2915 012074 003363 BGT WAIT :GO LOOP AGAIN 
2916 012076 104002 ERROR 2 "READY" FAILED TO SET 
e317 S12100 1376 001 WAIT3: MOV 3150 ,7 (SP) GET THE STATUS BACK 
18 Olel 1 001 MOV VPC, -(5P) GET THE PC 
2519 012110 062716 O000002 ADD #2, (SP) 
2320 012114 RTI 
ee! 012116 o00000 MAXCNT: 0 
sees ss HXSKEFRASFLSSHFRAREESSES REEL SARE LEER REL ERK SSLSHE PRE RERELFLE LESSER 
eae *ROUTINE TO WAIT ON TRANSFER REQUEST 
Soop biste0 7 ooco44 ae “REG: SETUP WASTE TIME LOOP 
2928 Ol is Mead 012116 O00044 MOV DSMAXCNT, 3S 4 
o09 1 132 012637 O01 MOV (SP)+, J#SAVPC ;GET THE PC OF THE WAITXFER INSTRUCTION 
12136 162737 001202 SUB a 
1 012144 012637 001204 MOV (SP)+, J8SAVPS ;SAVE THE PS 
121 105714 1S: TSTB = @TACS :CHECK XFER REQ 
12152 100414 BMI 4§ EXIT IF SET 
2924 012154 032714 o00040 BIT SREADY, JTACS *LOOK AT READY 
2935 O01 169 001402 BEQ cs 7 :BR IF "READY" ISN’T SET 
2936 Olels2 104004 ERROR *"READY™ SET WHILE WAITING FOR “XFER REQ” 
2937 012164 BR 4g 
e338 i 166 55 Inc (PC)+ ; COUNT 
2940 012172 001366 BNE 1$ :BR IF MORE TO DO 
2041 tel = DEC (PC)+ 
af Ele | 
i 1 ERROR “TRANSFER REQUEST” FAILED TO SET 
2S Ol2e04 O1 001204 4g: MOV JeSAVPS, -( SP) GET THE STATUS BACK 
eaie bi¢e10 MOV aKSAVPC, -(SP) GET THE PC 
12014 1 ADD #2, (SP) 
2948 012220 000002 GO BACK 
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MAINDEC-11-DZTAA-C 
OUTINE TO WAIT ON TRANSFER REQUEST 


5p RRR REE EREER REE EE ERTL EER REE EE REEL EERE ERASER EERE EEE EEE EEE 
ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST 


. SBTTL 
; CALL 
: JSR 
; RETURN 
ASKORV: TYPE 
CLR 
RDLIN 
MOV 
TSTB 
BEQ 
MOV 
LOOP: CMPB 
BNE 
MOVB 
BR 
NOTA: CMPB 
BNE 
MOVB 
BR 
NOTB CMPB 
BNE 
TSTB 
NEXT: TSTB 
BEQ 
CMP 
BHI 
NOTLGL: ae 
EXIT: eh 





/ 


PC, JS#ASKDRV 


MACYL1 27(732) 
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;NOTE: RO AND R1 ARE DESTROYED 


;<CRLF>"DRIVE(S)? ™ 


;G0_ GET A DRIVE 
sSETUP TO CHECK FOR VALID DRIVE(S) 
:WAS A DRIVE SELECTED? 


5 
;WAS DRIVE “A” SELECTED? 
Ter KEY FOR DRIVE “A” 
sWAS DRIVE “B” SELECTED? 
eer key FOR DRIVE “B" 
WAS A COMMA TYPED? 


= 
3 


i 
= 
a 


97 
<i 


S SELECTED? 


. . . . . 
BED 
“5, 


3 


INPUT DETECTED 
AGAIN 
SELECTED? 


2 
mn 


3 









~4? 
» 
= 
~~ 
se 
a) 
—c, 


LOGIC TEST (PART 1) MAINDEC-11-D2TAA-C 
CHANGE TAL! ADDRESSES 


5 
B 
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5 RRREEEAAEEERER EERE RUE EE EER EEE REE REEL EE ERLE EEE EEE EEE EEE EEE 
“SETTL ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 


RO, -(SP) 
, MSGASK 


(SP)+,RO 
RO, #160000 


RO, a8TACSL 
#2,R0 


RO’ aSTADBL ° 
JSTACSL, JSTACSH 
aaTACSH 
JSTADBL, a#TADBH 
38TADBH 
, MSGVEC 
(SP)+,R0 
c$ 


€<340>.RC 
RO, J8TAPRIO 


MTACS 
TACSL, -(SP) 

MTADB 
TADBL, -(SP) 


MTAVEC 
TAVEC, -(SP) 


MTAPRI 
TAPRIO, -(SP) 


»MSGOK 
(SP)+,RO 


2987 :C 

ae :JSR PC, asASKADR 
piS33q foudor O1S&03 i 

533) bissg Baagt RDOCT 

saa Of ree Beg 

2995 OL 160000 CMP 
1 BLO 
1e354 1 1206 MOV 
1 1 lele MOV 

3000 012370 013737 001206 01210 MOV 

3001 012376 005237 001210 INC 

oe Queue 013737 go1212 001214 Hoy 

Ere: ois44 rene 015613 3S: YPE 

3005 O1e420 104411 RDOCT 

3007 Ot 22 012600 HOV 

So0s Giese pede? o01000 ed 

3010 Ole432 103370 BHIS 

3011 012434 010037 001216 MOV 

sis Tear - 1 ripe AoY 

ot" Bi Suen 104401 015623 cS: TYPE 

3015 O01e454 104411 RDOCT 

3016 O1 1 MOV 

3017 01 141 BEQ 

Bi Gees tpi ei 
BiSy ih30p ; 

3021 012472 ASR 
ier fs 
01e500 77437 BIC 

3025 012504 Ol 1222 MOV 

3026 O1e510 1040 015635 6S: TYPE 

3027 i 14 D167 bE466 HOV 

£8 HE? Ie asus Nee 

3030 Olese6 O16 66460 MOV 

oe fisen it Type’ 
l i 1 015652 TYPE 

3033 01 167% 166452 MOV 

Shae Biseue iouuor ' 

1 i 1 015663 T 

1 6746 166444 

1256 1 TYP 

1 104401 015676 T 
3039 012564 104407 ROCHR 
2040 Ole566 012600 








VE RO 
Tacs?” 


;SA 
;"TACS 
;GET VALUE 

;PICK UP THE OCTAL NUMBER 
;1F “O" USE We VALUES 


;MAKE SURE IT IS A BUS ADDRESS 


TOE_TACS 
‘STE TO Le ADDRESS 


‘SETUP TACS UPPER 
BYTE POINTER . 


;SETUP TADB UPPER 
“BYTE POINTER 
s*vECTOR?® 





;MAKE SURE ADDRESS IS IN VECTOR AREA 
;SAVE AS VECTOR ADDRESS 


;ASK FOR PRIORITY 


;IF “O" USE OLD VALUE 
;MAKE SURE ITS VALID 


PND yNTO HIGH BYTE 
SHIFT 


9 
*TACS=" 
;;SAVE TACSL FOR TYPEOUT 
360 TYPE YPE=-OCTAL ASCII(ALL DIGITS) 


; SAVE TADBL FOR TYPEOU 
+360 TYPE=-OCTAL A ASCTT CALL DIGITS) 


s;SAVE TAVEC FOR TYPEOUT 
+360 TyPE<6cTAL ate DIGITS) 
3s SAVE riprio FOR TYPEOU 

> ?G0 TYPE;-OCTAL asCT i PLL DIGITS) 
GO READ ONE CHARACTER 
GET IT 





GO6 
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DZTAAC.P1l INE TO INPUT CSR,OBR, AND VECTOR ADDRESS AND PRIORITY 
1 000015 MP S,RO 
aie Gt gf 5 Bhan FY YES 
1 000131 CMP #’Y,RO 
304 OL BEQ 7$ it hos 
1 001176 TYPE SQUES sTYPE "9" 
soy6 1 1$ 5 BND LET HIM CORRECT THEM 
1 015704 7S: YPE MYES YPE OUT “YES” 
3048 O01 MOV {SP)+,R0 RESTORE RO 
3048 01 RTS PC “AND RETURN 
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HRHRRHRERE MANUAL ADJUSTMENT ROUTINES #e#exeeHEH 


Wd dddddddddddiddddddddddddddddddddddddddbddddddedddddddddddddseeddd 
LLL Ld 
;THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU6O 

;NOTE: ### BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 sae 
TALE Ed 


a] 
D> 
as 


= 
Oe 
| mel tee J 
-—c) 


5 HERE AE AEA HE SEER SE EE EE REE SESE SESE EEE SE EE EEE EE EEE EE EE 
WRITE FILE GAPS FROM “BOT” TO “EOT” 


;START A 

STHIS ROUTINE CAN BE USED TO ADJUST THE “WRITE GAP MONO” AND 

:THE “WRITE DELAY MONO”. 
Aititiiiititiitiiiitititiiitiiitiiiietitietiietitceticect ice: 


Ol2622 012706 001100 hécsus: mov SSTACK, SP sKEEP THE STACK OUT OF THE WAY 
Dlebes 613704 1206 MOV DBTACSL, TACS ‘SETUP THE TAL] STATUS AND 
l 1 lel MOV JSTADBL, TADB :DATA ER REGISTERS 
O1eb3% RESET RESET THE 
126 1 012622 001110 MOV #WF GSUB, 28SLPERR - SETUP LOOP. ON ERROR ADDRESS 
12646 004737 013626 JSR PC, JUNXTORV GO SETUP FOR NEXT DRIVE 
1eb5e O11 DRIVE, aTACS *SELECT DRIVE 
1 112714 000017 MOVB § #REWIND!GO. aTACS :SEND TAPE TO “BOT” 
Figbb0 032714 100$: BIT #READY, aTACS :WAIT ON READY 
12664 001775 BEQ 1 
012666 112714 o00001 1S: MOVB _ SWFG!GO, aTACS sHRITE A FILE GAP 
Ole67e 104412 WAITREADY WAIT ON READY 
012674 032714 o20000 BIT SLEADER, JTACS iar “CLEAR LEADER”? 
Oie700 001 BEQ 1$ 
1 HALT :STOP IF YES 
012704 000746 BR WFGSUB $51 ON CONT. 


FEE Te TIE CONTINUOUS BLOCKE OF DATA ee 


ESeR EVERY UL ici Lu RERERERRMR Ad adad camo unvia as 


: WRITE CONTINUOUS BLOCKS OF 
tHE PROGRAA ‘WILL HALT (3) TIES 
‘AFTER EACH HALT SET Tae Cun BND PRESS CONTINUE 
#888 IF USING SOE TURE Sitrene REGISTER 
: CONTI AND 
: Be MILL “GUR=XXXXXX NEW=" 
: AND ALL NeW VALUE TO BE INPUT 
*HALT 1 <= SUR(?:0) = OF BYTES PER BLOCK 
HALT 2 --- SWR<7:0) = PAT DESIRED 
SHALT 3 =—= SWRC15:0> = OPERATI SHITCH SET SETTINGS 
ROUTINE CAN suet “GAP TIME 
sjapvesbeantensceaneenteeaseensneanernnneneeenpeeaeenanenncnnas 
012706 004737 013370 TSUB: JSR T 
le7te 01 001100 WLOOP: MOV aSTACK, SP A: a OF The BN ay 
12716 013704 001206 MOV serAcet; TACS SETUP Whe Tat aren necist 
1578 013705 OOlele MOV JeTADBL, TADB 
sit t Olera? 1 001110 ae SUL RR iReaer Te ADDRESS 
HB Bee thre BE er enn Va oD 
31 1e742 010314 MOV DRIVE, JTACS SELECT DRIVE 
3104 012744 112714 000017 MOVB  #REWIND!GO. aTACS :SEND TAPE TO “BOT” 
3105 012750 032714 O00040 100$: #READY, aTACS *WAIT ON READY 











| 





b- 
‘oth 
bee 


389F 


ob b-2 & = bb = P< H+ p—— p= P< P BW — pe pe 
eee ee ee ee oe ae 
OnNWUI£WNI-2 


Sto 


fT 
~ 


ce 


SaSeeo 


~ 


CEOUIRAPONCO SS SRA EGOS SBR ENE EE URN ESS 


lo lealelalejejel=l=l=)=)] 
ee ee 
Rowoe 

org 


o 
- 


C LOGIC TEST (PART 


WRITE 


73 
013504 
020000 


001100 
001206 
O0lele 
912774 
013626 
000017 
000040 


013546 
020000 


eo 888= 
Se bass 


= 
MN“ 
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NUOUS BLOCKS of DATA 


BEQ 100$ 
1S: JSR PC. JHWRTBLK “WRITE A BLOCK 

BIT SLEADER. aTACS ‘AT TE eae CEADER? 

BEQ 1$ : N 

HALT ‘STOP IF “EOT” 

BR WLOOP LOOP IF CONT. 


5s RHRRRARALALERALERLREL RE LEL AA RELAEL ERLE LARA LALA LER AALAELELELLE EE 
AD CONTINUOUS BLOCKS OF DATA 
sSTART AT 230 

: THIS ROUTINE CAN BE_USED TO ADJUST THE “SIGNAL MONO” 
:AND THE “THRESHOLD POT™ 


jjtHeHOVSSSeRAHELELEEAESEROREEELEREDERESEOLENEHEVRESEREEEEEELIGS 


ROSuB r 3K OF THE WAY 
MOV DBTACSL, TACS -SETUP THE TAl1 STATUS AND 
MOV JSTADBL, TADB *DATA BUFFER REGISTERS 
RESET *RESET THE WORLD 
MOV #ROSUB, J#SLPERR “SETUP THE LOOP ON ERROR ADDRESS 
JSR DaNKTORV *GO SETUP FOR NEXT DRIVE 
MOV DRIVE, aTACS : 
MOVB § #REWIND!GO, aTACS *SEND TAPE TO “BOT” 
100$: BIT #READY, ATACS ‘WAIT ON READY 
BEQ 100$ 
1S: ISR PC,a READ A BLOCK 
BIT #LEADER, JTACS "AT “CLEAR LEADER”? 
BNE ROSUB *BR IF YES---LOOP 


5p RHRRRELALALELLE LALLA ELLA LA EL AL LAE LA LALA LSA ELLLLALELELL ARLE LLLES 
: BLOCK OF DATA FROM BOT TO FOT 
; START. AT 634 


H PROGRAM WILL TYPE “SWR=XXXXXX NEW=" 
: AND BLO A NEW VALUE TO Be INPUT 
*HALT 1 === SWR<7:0> = NUMBER OF S PER BLOCK 
SNe ee ee ee PeT TERY Dea ReD teu SETTINGS 
* THIS ROUT] CAN Buse Fo nosuet it “WRITE GAP MONO” 
AND THE TIME : 
TTT TTI TTTETETET TTT TTTITITTTTSTTTTT TTT TT TTT TTT TT TTT TTT TTT TTT Ty 
WAPBLK: JSR PC, a8SETBUF GET BLOCK SIZE AND PATTERN 
WGBLOP: Hoy uStAck SP iKEEP THE STACK guT OF THE WAY 
#TADBL, T BATA BUFFER te i TERS 
RESET RESET THE WORLD 
MOV #WGBLOP, J¥SLPERR -SETUP THE LOOP ON ERROR ADDRESS 
JSR PC DANXTORV :60 SETUP FOR NEXT DRIVE 
MOV VE, JTACS ‘SELECT IVE 
MOVB WIAD! GO, aTACS SEND TAPE TO “BOT” 
100$: BIT #READY, aTACS WAIT ON READY 


BE 1900S 
















3167 


CII WI ICI CII GIGI CII GIGI GI CIC CI I III CCI CI CU GIGI GIGI) 
WA tes SS SRSA ARRAS RRR SSS 
BBSRR EGG LS BBVRRESHL BIS led ZaIn SSH 


SOS pRESRSS 


RS 
NOMEWMeHO 
Seay 


SNSESERSE 


PRIARRR 


NK 
ome pe 
£o 


= 
se 


OOOOOOOOOO0O0000000 
WLM £ 


83 
£o 


112714 
le 
parade 


901765 


004737 


8 
eR 


8 
r 


TAl1 BASIC LOGIC TEST (PART 1) 
DZTAAC.Pil 


000001 
020000 
013504 
020000 
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WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 


18: Nove #WIFG!GO, aTACS WRITE A FILE GAP 
WAITREADY tWAIT ON READY 
BIT BLEADER, JTACS AT “CLEAR LEADER”? 
BNE § BR IF YES 
ISR C, O#WRTBLK *WRITE A BLOCK 
BIT #LEADER, JTACS AT "CLEAR LEADER”? 
BEQ 1§ ‘BR 

2s: HALT “STOP AT “EOT” 
BR WGBLOP ‘START OVER ON CONT. 








5 5 RAMA RIERA EEE EERE EE EEE REE EERE EE EEE EERE EERE EERE EEE EEE EEE EEE 
; READ A BLOCK OF DATA AND A FILE GAP 

;START AT 240 

; THIS ROUTINE IS USED AFTER “WRITE A BLOCK AND A FILE GAP” ROUTINE 
;1T CAN BE TO ADJUST THE “SIGNAL. MONO”, THE THRESHOLD POT” 
AND THE “TAPE BLANK MONO” 


e oo 
MACiitiiiitiiiiiiitiiiiitiiitiisiiiiiiiiiiiiriiersitiititises gy 
: ; HE STACK OU 


REPBLK #STACK, SP : T OF THE WAY 
MOV DETACSL, TACS *SETUP THE TAL1 STATUS AND 
HOV ‘ JETADBL, TADB ‘DATA BUFFER REGISTERS 
MOV #RGPBLK, J#SLPERR / 5SETUP THE LOOP ON ERROR ADDRESS 
JSR PC, ae ;GO SETUP FOR NEXT DRIVE 
MOV DRIVE, aTACS *SELECT DRIVE 
MOVB § #REWIND!GO.aTACS 5 SEND TAPE TO “BOT” 
1008: err wRER Y,aTACS sWAIT ON READY 
1S: ISR PC, J#RDBLK READ A BLOCK OF DATA 
BIT #LEADER, aTACS ‘AT TELEAR LEADER"? 
MOVB _#SFBG!GO,aTACS GET INTO A FILE GAP 
WAITREADY 
BIT #LEADER, ATACS sAT “CLEAR LEADER"? 
BNE RGPBLK *BR IF YES 
BR 1$ ;LOOP 


55 9 9 9 ESE EEE EEE EEE 
; SPE or FILE GAP FROM “BOT” TO “EOT” 
3 THIS ROUTINE CAN BE USED AFTER “WRITE FILE GAP” FOR LOW SPEED 
;SPACE F' (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 
real A FI AND A oi OF DATA FOR HIGH SPEED SPACE FORWARD 


«HGHIHEINHIHEHHEHHIHIHEHEHHEHHHHGHEHHEHHHEGHHHH HHH HEHEHE HEHE 





FGSB: MOV #STACK, SP 3K K OF THE WAY 
MOV geracst, 1 “SETUP THE TAL! STATUS AND 4 
MOV STADBL, T :DATA SUFFER REGISTERS 
ABU’ NSFFGSB. D¥SLPERR REET THE TOE THE LOOP ON ERROR ADDRESS 
ISR PC, JUNXTORV :60 setub FoR NeXt DRIVE ' 
MOV ORI VE aTACS “SELECT DRIVE 
MOVB § SREWTND!GO, aTACS "SEND TAPE TO “BOT” 

#READY, aT *WAIT ON READY 


100$: BIT 
BE 
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DzTAAC.PLI SPACE FORWARD FILE GAP FROM “BOT” TO “EOT" 
3218 013318 112714 000013 1S: MOVB __aSFFG!GO, aTACS sSPACE INTO A FILE GAP 
3219 O1 332 104412 WAI TREADY Wa ADY 
3220 013324 032714 o20000 BIT #LEADER, JTACS “AT "CLEAR LEADER”? 
3221 013330 001772 BEQ 1$ :BR IF NO 
see 013232 HALT ‘STOP AT “EOT” 
see 1 000746 BR SFFGSB LOOP ON CONT. 
3225 
3226 er bax eer Tae ee ee 
3227 BACK SPACE FILE GAP 
3228 START AT 250 
3229 “THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE “SIGNAL MONO”. 
3238 LAIHAHASEEREREERREERREEEEEEENEREORESOEEAEEEEVSESESEABERDRESEOS 
3231 013336 o00005 béF csp RESET T 
3232 013340 012737 013336 001110 : #8SFGSB, J#SLPERR “LOOP ON ERROR ADDRESS 
3233 01334 010314 NOV DRIVE  atAcs SELECT DRIVE 
3234 013350 112714 000007 1S: MOVB _ #BSFG!GO, JTACS s BACK SPACE A FILE GAP 
3235 013354 104412 WAITREADY WAIT ON READY 
3236 013356 032714 o20000 : BIT #LEADER, JTACS AT "CLEAR LEADER”? 
3237 Ol 001772 BEQ 1§ F 
3238 013364 00000 HALT ISTOP AT BOT 
3239 013366 000763 BR BSFGSB START OVER ON CONT. 


se ; EE ET TTUP BLOCK SIZE AND PATTERN FOR SUBROUTINES 
asi 013370 oosoo0 [jtEPeEORRAEREESSSEAEEREEREROEEEESEENDEESEEASSESSEEBORESEOERDEDE 
32% 013372 OGO0000 ” HALT ;OPERATOR PUTS BYTE COUNT IN SWR<7:0> 
3247 013374 022767 000176 165536 CMP #SWREG, SWR ; SOF THARE SWITCH REG. 

3248 013402 001001 BNE 20$ *NO-LET HIM BE 

3249 b13404 on GTSWR sGET NEW VALUE 

ses Olsnic Oooo foe ee a aes SICK THE BYTE COUNT 
3253 013414 105777 165521 TSTB = ASWR#I "CHECK IF GREATER THAN 377 
2254 bisie0 001402 BEQ 1$ BR IF NO 

3265 013422 012700 000376 MOV #376,RO ;SET FOR MAX ALLOWED 

3256 013426 005200 1$: INC RO MAKE IT 377 OR | 

3257 013430 01 13500 23: MOV RO, J#BLKLIM SETUP THE BLOCK LIMIT 
3258 013434 13502 CLR aePATTRN 

3259 013440 og909 HALT sQPERATOR PUTS PATTERN IN SWR<7:0> 
3260 Oise 02276 000176 165470 CMP SSUREG, , SUR A gee REG. ? 
3p) Bt sue rect GISWR GET NEW VALUE 

3263 013454 21S: * CONTINUE 

sore pisves dpooeg fee DISS0E a 4. Snare sELGK UP TH PTT SuITCHES 
3266 ate 022767 O00176 165446 CMP #SWREG, SWR *SOFTWARE SWITCH REG.? 

3267 013472 001001 BNE 228 *NO-LET HIM BE 

Ba ta one zs, ‘Sarine 

3270 913476 000207 ure PC RET 

3271 013500 BLKLIM: 0 *READ AND WRITE BLOCK SIZE 
3272 013502 o00000 PATTRN: 0 “PATTERN TO GO ON THE TAPE 
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013500 
000003 


000040 


013502 
000020 


013500 
013502 
000005 


000040 


000020 
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ETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES 





ppeenenrnere Te ae 


ROUTINE FOR THE MANUAL OPERATIONS 
i eeaweeneunsesnentusnsssanninneseeSeeSOeSHESHESEAHESSEEAEEELONE 


BATELK: MOV aHBLK sPICKUP THE BLOCK K SIZE 
MOVB SBT TELCO sacs ‘START A WRIT 

1S: WAITXFER :WAIT ON TRANSFER REQUEST 
BIT SREADY, JTACS ;DID READY SET? 
BNE 3$ *BR IF. YES 
DEC Rl ‘COUNT THIS REQUEST 
BLT 2s "BR IF TIME FOR ILBS 

- MOVB Q¥PATTRN, ATADE Toop ON TAPE 

2S: BIS #ILBS, 3TACS WRITE CRC AND SHUT DOWN 

WAI TREADY Wart ON THE READY FLAG 


3$: RTS PC 


TA NOUTINE TOR THe TMUAL OPERATIONS 


TINE FOR THE M 
2. EE EERE EAE SEER EEE EERE REL ERE RK EEEL ELE LE EER ER ER EREL ELE LE EEE 
RABLK: MOV JSBLKLIM, Re PICKUP THE BLOCK SIZE 
Nov JSPATTIRN, “USE THIS DATA PATTERN TO COMPARE TO 
MOVB __ #READ!GO,aTACS ‘START A RE 
1S: WAITXFER tWAIT ON TRANSFER REQUEST 
BIT #READY, JTACS 1S READY SET? 
BNE 3$ *BR iF YE 
DEC R2 SCOUNT THIS REQUEST 
BLT 25 :BR IF TIME FOR ILBS 
MOV JTADB,R1 READ THE DATA BUFFER 
CMPB sO, R1 ‘CHECK THE DATA 
BEQ 1 *BR IF OK 
ERROR 7 BAD DATA 
BR $ :GET OUT 
2S: BIS #ILBS, aTACS ;READ ILBS 
WAI TREADY *WAIT ON READY 
3S: TST aTACS ; CHECK FOR EPROR 
BPL 4g “BR 
ERROR 1 ERROR OCCURRED 
4g: RTS PC * RETURN 


j MOTTE 10 ONE DRIVES 


TO CHANGE DRIVES 
lai S18 JOUR 515 SWO7 ON A (1)? 
CLR DRIVE SET DRIVE T 
MOV oie Ri *GET DRIVE POINTER 
CMPB sé (RL) +, #AR :1S IT DRIVE "A"? 
BEQ 1$ : F 
MOV et. DRIVE SET DRIVE TO “B" 
1S: ISTB (RL) iL 6ST OI DRIVE BEEN SELECTED 
MOV SDRVKEY,R "RESET DRIVE | POINTER 
2s: Rl, RS ADRYPNT SAVE pRIVE POINTER FOR NEXT TIME 


























MAINDEC-11-DZTAA 
ROUTINE TO CHANGE DRIVES 


5 5 RERRAA RAR EE REARS LALLA RAL S EE REEL ERELLEL ELA ERE REL RLELELA REEL ELELE 


TAll pasic LOGIC TEST ng} 1) 
DZTAAC.P 


SRR 
on 
= 
NSS 


fe 


aaa 
Tre 
Sees 


: 


N“N 
_ 
~ 


—— Ne 


8 
— 
<= 


RS 
£ 
~~ 
Lat) 


SRSRes 
aaa 


S 


Su 


bb hb Bb Pb bP pe bo pe Be 
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ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY 








MOV #ORVKEY, RO 
JSR PC, J#EXAM Rl 1S DESTROYED 
NORMAL RETURN 
ERROR RETURN 














MOV JSTACSL,R1 sPICKUP THE “CONTROL & STATUS” REG. ADR. 
CLR (RL) DRIVE="A", FUNCTION="WFG” 
‘ CMPB 8’ A, (ROD ; EXAMINE DRIVE “A”? 
BEQ 1$ R IF Y 
BIS #UNIT (RL) ie DRIVE "B” 
BIT BREADY, (R WAIT ON READY 
BEQ 1$ 
TST (R1) ge ERROR? 
BPL 4 BR IF NO 
BIT #OFFLINE, (R1) “ERROR DUE TO “OFF LINE? 
BNE *BR IF YES 
BIT #WRTLOCK, (RL) ; ERROR DUE TO “WRITE LOCK"? 
CMPB #BITO7!BITOO, aSUR :BEADONLY™ SELECTED? (RDIPAS) 
BEG *BR IF YES 


CMPB eee ; (RDEPAS) ? 


R IF _YES 
3$ STAKE THE ERROR EXIT 
git em, sERROR DUE TO “CLEAR LEADER"? 


B :BR IF YE 
ADD #2, (SP) TAKE ERROR RETURN 
PC ; RETURN 
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1 TYPE ROUTINE 





3362 .SBTTL TYPE ROUTINE 
3304 § 5 RRRREER EAA R ELE LEER ELLE ELER ELE ALE ELLE REE EEE LEEA ELLE REFERRER ELERE 

3365 SHROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

3366 S*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
3367 S#NOTEL: SNULL CONTAINS THE CHARACTER 10 BE USED AS THE FILLER CHARACTER. 

3368 | : #NOTE@: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

3369 j ANOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
#1) USING A TRAP INSTRUCTION 
2 TYPE § ,MESADR 


: ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRYy | 
3374 : ;*OR ; 
ao es 
3335 + * 
33 
3336 013776 105767 165155 STYPE: TSTB $TPFLG 1S THERE A TERMINAL? ; 
3380 014002 100002 BPL 1$ 
3281 014004 o00000 HALT :HALT HERE IF NO TERMINAL 
3382 014006 000407 BR 3 *?LEAVE 
3383 O14010 010046 1G: MOV RO, -(SP) SAVE RO 
3384 O140l2 017600 oo000e2 MOV a2tSP) ,RO :3GET ADDRESS OF ASCIZ $7 
3385 O14016 112046 2s: MOVB = (RO)+,-(SP) ;;PUSH CHARACTER TO BE j=D ONTO STACK 
3386 O140e 001005 BNE Ug ;3BR IF IT ISN’T THE ThSAINATOR 
3387 014022 005726 TST (SP)+ *2 IF TERMINATOR POP It OFF THE STACK 
3388 014024 012600 60S: MOV (SP)+,29 : :RESTO 
3389 014026 Obe7 16 oooo02 38: ADD #2, (SP) ADJUST RETURN PC 
3390 014932 RTI ss 
3391 Oro 122716 000011 4g CMPB —s BHT, (SP) ::BRANCH IF <HT> 
3392 014040 001430 BEQ 
3393 O14042 122716 o00200 CMPB = #CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
3394 014046 001006 BNE c$ 
3395 014050 005726 TST (SP)+ :;POP. <CR><LF> EQUIV 
339 O140S2 104401 :: TYPE A CR AND LF 
3397 014054 001177 SCRLF 
3398 014056 105067 000130 CLRB § $CHARCNT CLEAR CHARACTER COUNT 
3399 O140be2 BR 25 *:GET NEXT CHARACTER 
$400 O14Obs 004767 p00 S$: ISR PC, STYPEC 3360 TYPE THIS CHARACTER 
O1 O14 126726 165062 63: CMPB «ss SFILLC,(SP)+ 31S IT TIME FOR FILLER CHARS.? 
3402 014074 001350 BNE 25 *: IF NO GO GET NEXT : 
3403 014076 016746 165052 MOV S$NULL, -(SP) ?:GET # OF FILLER CHARS. NEEDED 
3404 *:AND THE NULL CHAR. 
3405 014102 105366 000001 7S: DECB =: A( SP) DOES A NULL NEED TO BE TYPED? 
3406 014106 . BLT S ??BR IF NO--GO POP Tif NULL OFF OF STACK 
014110 004767 000032 ISR PC, STYPEC ::G0 TYPE A NULL 
3408 014114 105367 0o00072 DECB  $CHARCNT ?:D0 NOT COUNT AS A COUNT 
ae 014120 000770 isied 7$ ;;LOOP 
zit i sHCRIZONTAL TAB PROCESSOR 
a3 014122 112716 ocoo40 8S: MOVB = #”_—« (SP) ;;REPLACE TAB WITH SPACE 
14 014126 004767 000014 93: JSR Pc, $TYPEC :: TYPE A SP 
| 34IS 014132 132767 000007 ooDDse BIT8 #7, $CHARCNT ;;BRANCH IF NOT AT 
| 3416 014140 001372 BNE 93 :TAB STOP 
al? 014142 005726 TST (SP)+ ::POP SPACE OFF STACK 
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3418 O14144 ; s BR 23 + GET NEXT CHARACTER 
a1 Oiutag : 777 164776 TYPEC: Fy S75 S{WAIT UNTIL PRINTER IS READY 
3421 O14154 Leer? 0002 164770 MOVE e($P) 98 as7P8 ::LOAD CHAR TO BE TYPED INTG DATA REG. 
see O1vige kee 6:§ oo00d2 ches a tis oGHAPACTER A CARRIAGE RETURN? 
sie4 pluize reef 000014 LR SCHARCHT 33 YES-=CLEAR CHARACTER COUNT 
3426 O14200 oe aee oo0012 cocoo2 18: CMPB Os LF. 2 (SP) ::1S CHARACTER A LINE FEED? 
3427 014206 001402 BEQ $TYPEX -:BRANCH IF YES 
3428 o1¥e19 05227 INCB ss (PC) + ;;COUNT THE CHARACTER 
pe GSK Be eae” sscateetne 3 sms 
3431 z : 
sti .SBTTL REAL 2N OCTAL NUMBER FROM THE TTY 
RY : s SESFLSELASLELFLFLALESEATESELALELELELSLARAFLLAALLA ASA LALA ALALALELS 
Ee gATHIS ROUTINE WILL RE READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
3437 #CALL: 
3438 # RDOCT 3 ;READ AN OC TAL NUMBER 
3439 3# RETURN HERE 3 3LOw ORDER BITS ARE ON TOP OF THE STACK 
sito 2 ::HIGH ORDER BITS ARE IN SHIOCT 
3442 014216 O1164 SRDOCT: MOV (SP). (SP) ;;PROVIDE SPACE FOR THE 
S443 014220 O16666 000004 on0002 MOV 4(SP}.2°SP) 31 NUMBER 
| S444 014226 O10045 MOV RO, - (SP) ;3PUSH RO ON STACK 
| 3445 014230 O10146 MOV RI} =(SP) PUSH Ri ON STACK 
aie diNe3e 010246 MOV R2,-(SP) ;;PUSH Re ON STACK 
| 3447 Of4e34 104410 1S: ROLIN ; sREAD AN ASCIZ LINE 
| 344g 014236 012600 (SP)+,RO :2GET ADDRESS oa 1ST CHARACTER 
| 3303 Biase poeroe RBS HCLEAR DATA WORD 
et Oieds 1edag 2s: HOV {R0)+,-(SP) :sPICKUP THIS CHARACTER 
Suey O1ase2 Doeioe RoC He 
| Stee Biases Boesor wes: +a 
3456 014256 006102 ROL Re 
3457 biNebd 006301 ASL Ri 534#8 
3458 O01 D0b 102 ROL R2 
3459 124 16 177770 BIS #1C7, (SP) ;;STRIP: THE ASCII JUNK 
60 14 062601 BOD (SP)4,R1 s+ R00 IN THIS DIGIT 
BR ORME Gere, «asa EERLERN TemnmnaoR FROM STACK 
| 3464 014302 19267 000010 Hoy Re, SHIQCT ses ‘atc a 
Suck start pt sehe Hoy (5P)+ Ri 4 TACK int9 RI 
| 3467 Oiusie 012600 HOV (SP)+/RO :}POP STACK 
| 3468 014314 o00002 RETURN 
| zie9 014316 000000 SHIOCT ocr: + FHA. Ht : NIGH ORDER BITS GO HERE 
7 
ue 5 Seer hae tae ene ie ee ea et ee ae 
| 3473 ‘ENABL LSB 
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MAINDEC-11-D2TAA-C 
UTINE 


TTY INPUT RO 


C 
1 


~-s 
Ht 
- 


ERLERE 
hhh 


oO 
e 
e- 
4 
{vv} 
= 
wm 
_ 
Oo 
ta) 
e 
= 
oO 
= 
oe 


: 
Hl 


AND WILL 


CKSWR: CMP 


922767 000176 164612 § 
1272? 164554 000201 


14320 


1 biases 


Re 
ie 
Hea 


zz 
-é 
A000 
b 


Rais 


A 
r=) 
aap 
a 


: -oe-e - roy 
St e.BEo 

dase SBS yb cEes 
cogs *igeent 
225 nhenshost 
eng ‘astern ° 
a i is 
Cee » hh S 
SS eae 
gl Z 

fous Ue Sue 
x th -— oO .<] 
iywRSarbensaos 
«> 

agate 


Bee 


& bie 
ag Boo» oh 
5 Bae xo 
Bone = 


TYPE 
MOV 
TYPOC 
TYPE 
CLR 
CLR ..” 
TSTB 
BIC 


Eatiaee & 


Basses es tii 


31S IT A CONTROL-U? 


« 
id 


IS IT A <CR>? 


;BRANCH IF _NO 


; os a + 
2 3 3 8 2 3, 
a 4 7 =o. b ] - = C a) 
Runt SaaS Senaeg 
VF ae ep epee 


YES, IS IT THE FIRST CHAR? 
BRRACH IE S 





1 

& & 
ee 
sersr og Gg 
a a a 
& a 
et ea 


pungesreeernesesc 


108: 


d 
ag 
8 


000100 “164424 





BS at 


ATES eS 
SEE ePT TPN NM NDT: 


Soo bat bam ben hen ban bem ban bam bam bam hen ban bd nam bom pat) 


AQ0RX0000 


HMMM REO 








= 
| 


me = we ee ee 
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DZTAAC.Pi! TTY INPUT ROUTINE 
14546 ooo002 TST 2(SP) s;1S THIS THE FIRST CHAR 
145S2 0014 BEO 173 ::BRANCH IF YES 
14554 ASL (SP) :3NO, SHIFT PRESENT 
l 16 ASL (5P) 3 CHAR OVER TO MAKE 
14 16 ASL (5P) +: ROOM FOR NEW ONE 
1 ooooo2 173 INC 2(SP) KEEP COUNT. OF CHAR 
O14Sbe 16 177776 815 =2(SP), (SP) ::SET IN NEW CHAR 
l BR 7§ *:GET THE NEXT ONE 
014574 oes 001176 185: TYPE SQUES ti TYPE ?<CR><LF> 
014600 FE eaeeg | A 20$ ::SIMULATE CONTROL-U 


3 REPL ERLEGLELELELE RELA LERLALE RAL KA ERE RESELL E SEGELEREK SHES EEA SLESES 
: ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


es 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
342 
3543 
3544 
= a : ROCHR ss INPUT A SINGLE CHARACTER FROM THE TTY 
3647 * RETURN HERE >: CHARACTER IS ON THE STACK 
3548 2 # ::WITH PARITY BIT STRIPPED OFF 
=u O14602 011646 SRDCHR: MOV (SP), =(SP) 3;PUSH DOWN THE PC 
3552 014604 O16666 ocooo2 MOV 4(SP} ,2(SP) >:SAVE THE PS 
3553 buble 105777 164326 1s TSTB = STKS ;:WAIT FOR 
3554 014616 100375 BPL 1$ >: CHARACTER 
3555 Ol 117766 164322 000004 MOVB  a@STKB,4(SP) >:READ THE TTY 
2556 O1be6 000004 BIC 8404127) 4(SP) i3GET RID OF JUNK IF ANY 
3557 014634 000023 CMP 4(SP), #23 2315 IT A CONTROL-S 
3558 014642 001013 BNE 3$ *:BRANCH IF NO 
3559 014644 105777 164274 2s TSTB © aSTKS *:WAIT FOR AC TER 
3550 014650 100375 BPL 2s >:LOOP UNTIL ITS THERE 
3561 014652 11774 164270 MOVB aSTKB,-(SP) GET CHARAC 
sob 14656 base 77600 BIC 8¢C177, (SP) *:MAKE IT 7-BIT ASCII ; 
014662 000021 CMP (SP)+, bel 315 IT A +9 j 
sre BIuESB pOTED ae Ht . 
3566 014672 ratty oo00c04 CO0140 35 CMP 4(SP), #140 2:15 tT PPER CASE? 
3567 2 ooeH07 BLT u§ + DR ONCH IF YES 
3568 O14 oc0004 000175 CMP 4(SP), 8175 7:IS ITA SPECIAL CHAR? 
3569 014710 003003 BGT 4 33 IF YES 
3570 014712 O42766 O00040 O00004 BIC #40,4(SP) :;MAKE IT UPPER CASE 
3571 014720 4§: RTI es TO 
276 g3 PEETETESTETITITET ETT TTT TTT TET TT STtETETTTTTSTTTTST TTT TTT TTT TTT TT 
273 *kTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
9 es 
27> * IN ;; INPUT A STRING FROM THE TTY 
* RETURN HERE + IpRESe OF FIRST CHARACTER WILL BE ON THE STACK 
77 + >: TERMINATOR WILL BE A BYTE OF ALL O'S 
3579 014722 010346 SROLIN: MOV R3, -(SP) ;;SAVE _R3 
3580 014 01 015030 1$: MOV #STTYIN, R3 *:GET ss 
3581 O14 015040 2s: CMP aSTTVINGE. ,R3 es FULL? 
sees piuyse | ipaug? eS 388 Rea On CHARACTER FROM THE TTY 
3584 tee 112613 MOVB  (SP)+,(R3) +3GET TER 
3585 014742 122713 000177 10S:  CMPB 4#8177,{R3) *:IS IT A RUBOUT 
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errr | 


aft a a ab lal 
WONDMUS WHO 


SE RGR Rane RaN Nee ORES 
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BNE 3$ ;;SKIP iF NOT 
4 TYPE QUES 237 9? 
BR CLEAR THE BUFFER AND LOOP 
38: HO (R2),98 *:ECHO THE CHARACTER 
CMPB = s«IS, (R3)+ :;CHECK FOR RETURN 
2s iit IF NOT RETURN 
CL =1(R3) *:CLEAR RETURN (THE 15) 
nove teP)s,R3 tT RESTORES Ra” 
MO (SP). -(SP) ADJUST THE STACK AND PUT BDORESS OF THE 


$3 FIRST ASCII C TER ON I 





5 RE TURN 
-BYTE O ;;STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE e 3; TERMINATOR 


TTYIN: . . ss RVE TES FOR TTY INPUT 
u: “BSC 2 /#U7<15><12> + CERTEOL © 


SCNTLG: .ASCIZ /#G/¢15><1e> ;;CONTROL “G” 
SMSWR: .ASCIZ ¢15><12)>/SWR = / 
SMNEW 


: .ASCIZ / NEWS / 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


3 EAE EE 99 9 A 9 ES SE EA EE EE 
;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


{Egy vPOS-—-ENTER HERE 10 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 





+ MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3% TYPOS 3;CALL_FOR TYPEOUT 
2 BY N *:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3% -BYTE MM 33M=1 OR O 
3* s3ls ADING ZEROS 
* se LEADING ZEROS 
:#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
j#8TYPOS OR S$TYPOC 
7 = «MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3 TYPON ;;CALL FOR TYPEOUT 
?#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*#CALL«s 
+ MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
tt TYPOC >:CALL FOR TYPEOUT 
STYPOS: MOV 3(SP),-(SP) ssPICKUP THE MODE 
HOVE ESPoa’SONDDE+1 | SINUNBER’ DE DIRTTS TO TYPE 
BOD a2 (oP) He T THe ADDRESS 
STYPOC: 4 IL s:SET THE ZERO FILL SWITCH 
HOVE : BMODE+1 >:SET FOR SIX(6) bicits 
STYPON: MOVB #5, SOCNT >:SET THE ITERATION COUNT 








Dethae PLY Oe eTRARy’ 


3642 
ei 
3645 
su? 
su9 


PRMMAS LSTA R AS RAMA as 


ANERELOHE 
aS 


COoo0o900000000 
b+ 0-2 bp -0 fe as Bs Be he Bs ho HS he pe Pie 
OOO cere 

ff — bo Bas Po Bs pw 
pt > pe 
oO £Mo 
~ 
Baie 


58 
te 


Saar ei kung 


i} 


Boggs 


ee ae ee et ee a ee ee 
ratat Ay At Ay 


010346 


Bidse 


Se 


om 
2 
™N 


R 


8 


ae 


3 Bas bao 
aan 
NEN 


ous 


tSt=t=4 
BRE 


o000c2 000004 


gcTHS Ato ¢ 


1§: 
es: 


ss: 


6$: 
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VE_RS 
T THE NUMBER OF DIGITS TO TYPE 
;; SUBTRACT y FOR MAX. ALLOWED 


I 
T THE PeRO PILL 
PICKUP _THE INPUT 
AR UT 


+ OUTP 
;;ROTATE MSB INTO “C™ 
3360 DO _MSB 

;;FORM THIS DIGIT 


rte 
m 


ou w 
4 
~~ 


= 


—— 


See 
Sz 


ie 
—=x 
a 
o o 
“ 
o 
_ 
~ 


s ewewes ewewes ewe ° ewe e ewe ewe 
° ewewe ewewe oe e . ewe e ewe e . 
| am) 


oeose 
aa 
~ 





DIGITS TO TYPE 





3687 


RAR ARORA E ESC RSSc Senay ee varies a4 
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DetAnBc BLY O° raRR DeCobeR 


oos004 o000Ce 






-SBTTL TRAP DECODER 
; REREEEREEEAREEE REESE EELS “iSter Erte" HEEEREEEEEE HEELS EE EE 


tit HIS ROUTINE WILL PICK KUP. THE LOWER BYT 
;#AND USE IT TO I DEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;#0F THE DESIRED RO Leta THEN USING THE ADDRESS OBTAINED IT WILL 
:#G0 TC THAT ROUTI 





STRAP: MOV RO, -(SP) ;;SAVE_RO 
MOV 2(SP),RO ieee TRAP ADDRESS 
TST =(RO) KUP BY 
a a de peca 
Roy STRPAD(RO) ,RO 4: ABE ne 
RTS RO ne TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP) ,-(SP) ; ;MOVE THE P C DOWN 
Vv  4(SP},2°SP) ;sMOVE THE DOWN 
9° 






-SBTTL TRAP TABLE 
;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
; #BY fue TRAP INSTRUCTION. 


TRAP2 
3 ;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER 


TYPOC ( 
EES HISREEHES: TRB) HEE Get AEN (3 PELE er 
SGTSWR ;;CALL=GTSWR  TRAP+S(10440S) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR  TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
SROCHR ;;CALL=RDCHR TRAP+7(104407) ua Y TYPEIN CHARACTER ROUTINE 


SROLIN ne ey TRAP+1 iO teil, Y TYPEIN STRING ROUTINE 
SROOCT ;:CALL=RDOCT  TRAP+11(104411) Res AN OCTAL NUMBER FROM TTY 
-ON.READY 5 ;CALL=WAITREADY H eeteae wert phy THE READY BIT TO 


WAIT 
WALT: FOR, XFER ; ;CALL=WAITXFER TRAP+13( 109413) WAT 








TAL! BASIC LOGIC TEST (PART 1) MAINDEC 
OZTARC.P1l POWER DOWN AND UP ROUTI 
31 
33 
3734 O1S*%06 pier 015552 0024 
3735 pai a 37 40 000026 
go Hess bite 
333 Bieuse olosse 
Sout eas | OLOSYE 
Sus BleNse BITFHE 163476 
3743 tae’ Tag pools 
Srue ieues 900000 wet 
374 O154SE 000776 , 
3747 . 
3748 
3750 O1S460 012737 0155Se o00024 
3751 015466 016706 000064 
3752 015472 005067 000060 
3753 015476 005267 O000S4 
3754 theses 001 
3755 O1SSO4 Ol26b 163430 
3756 015510 O1 
sen Siesta of 
area pieeie B 
3760 015520 012601 
3761 015522 ‘ Eg 
3762 ay 01 O1S406 o00024 
3763 Ol 012737 000340 O000c6 
3766 ead 012716 
3767 pizeae 
oe ties 
3771 beeen 
3772 015560 005015 047520 042527 
3073 015566 O00le2 


ne a ee ee —_—~ 
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-SBTTL POWER DOWN AND UP ROUTINES 
APE CATE °° tenet cement taias ema tanenneeatats rte tas: 


irae 


TINE 
asILLuP DePWRVEC ;:SET FOR FAST UP 
DSPWRVEC+E , BRI RIO: z 


Ro ‘fet ts ) 

RlsW(@} BUSH BIW Stack 
R3,-(5P) Het fs ON STACK 
Re’ = (ep) SS EueH Re ON. STACK 
aSUR, (SP) i PUSH aSWR ON STACK 
SP, SSAVRE :SAVE SP 

SSPURUP, JUPURVEC’ SET UP VECTOR 

“2 ;;HANG UP 


, LHLLLLLSLLELLLLLALERRLLELE LL LALA LELARALLLLA LALA LE RELELALLL ALA LER 


'BOWER UP ROUTINE 


$PWRUP: MOV 
MOV 
CLR 
1S: INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
SPURMG: .WORD 
MOV 
SPWRAD: .WORD 
RTI 
SILLUP: mr 
SSAVRE: 0 
SPOWER: .ASCIZ 





-EVEN 


SSILLUP QUPURVEC ; ;SET FOR FAST DOWN 


SSAVR6, SP 

§ HMRTT LOOP FOR THE TTY 
SSAVR ihe T FOR THE INC 
(SP)+, aSWR tt Pop STACK INTO aSWR 
(SP)+'RS *:POP STACK INTO RS 
(SP)+,R4 3;POP STACK INTO 
(5P)+'R3 ?:POP STACK INTO R3 
(SP)+'Re >:POP STACK 

(SP)+'RI POP STACK 

(5P)+’RO i5POP STACK INTO RO 
#SPURON. 2 C’:;SET UP THE POWF® DOWN VECTOR 
$340, J#PWRVEC+E sAPRI Os? 


T THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 


SPOWER 
(PC)+, (SP) i ERESTART AT PWRST 
PWRST SRESTART ADDRESS 


33 THE POWER UP SEQUENCE WAS STARTED 


“2 ; BEFORE THE POWER DOWN WAS COMPLETE 
HERE 


2:PUT T 
(15> <12>"PoweR" °° Ye 
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<CRLF> /DRIVE(S)?7 
<1&><12>/TACS?7 


/"READY” FAILED TO SET/ 


Re 
— 
ta 
w 
oO 
me 
a 
ta 
oud 
a) 
ies 
ire 
2 

— 
uw 
C« ] 
ty 
Qe 
ge 
tal 
wu 
w 
= 
te 
o 

“‘ 
N 
io] 
oO 
w 
te 9 


-ASCIZ /PRIORITY?/ 
-ASCIZ /STATUS PROBLEM/ 
-ASCIZ /THE WRONG FLAG SET/ 


-ASCIZ /TACS=/ 
-ASCIZ / TADB=/ 
-ASCIZ / VECTOR=/ 

: .ASCIZ / PRIORITY=/ 
~ASCIZ § ¢15><12>/0K?/ 


eASCIZ § /YES/<15>< 12> 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-DZTAA-C 


DUT INES 
MSGDORV: 

000 

eigt EMe: 
EM3: 
EM4: 


I 
R 
051117 MSGPRI: 





-ASCIZ /COUNT PATTERN FAILED/ 


aon eat ae 
fea 


) MA 
UP 


Tl 


LE O47S24 MSGVEC: .ASCIZ /VECTOR?/ 


O40Se% 041104 MTADB: 
O4150S 047524 MTAVEC: 
osisee 


PAR 


( 


T 
R 


042200 O44S2ee 042526 
03723 OSe0i2 041501 MSGASK: 


OS14S0 037451 


rs 


Me 


Pp 


IC LOGIC 


 REBEERERREMMRRERERER ERE ERA 


c eunes Eee 
wun spa Retsoparaesaecaranics 


- IAAANNAARARA NAA A SHBG SSS BH DD IBH05.0000.0.0.00.00.00 
2OQOO9WWWWOWOGOOWQWWBWWHWWWHDOWHOOWOWHAHOWKHOO000000000000000000000 


WAIT ADDRESS/ 


EXPECT RCV’D/ 


TACS/ 
TACS 
TACS 


/ADDRESS FAILED/ 


/PC 


-ASCIZ /DATA PROBLEM/ 
-ASCIZ PC 
/PC 


-ASCIZ 
-ASCIZ 
-ASCIZ 


DH1: 
DHe: 
DHS: 


O42See EMIO: 


044501 


a we 
ae 


SERS wo aS 


hhh at td dt at dd et 
Se 


O-MUMTiNO.Oe’o-- 
sown am an ham ame hae em am a hae) 





ford eel cee eee ee ee oe ee 


acta iii 
PEN SRRRRERS 


Ww 
OoOoooo00o0 
Pata 

— 
TO 


2 Ban 


IC LOGIC TEST (PART 1) 
ll P DOWN 


cog 


052103 


030040 
o40524 


le) ERY 


D011 
ll 


001162 


000000 
001164 
001122 
001206 


MAINDEC-11-DZTAA-C 
AND UP ROUTINES 


0040 
0104 
O20040 DHE: 





-ASCIZ 


-ASCIZ 


> MACYL1L 27(732) 


/PC 


/PC 


SERneC’ SRECD’ Savec, 0 


TADB/ 


ADDRESS/ 
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SERRPC, SREGO, SGDDAT, SBDDAT, 0 
$REG1,0 

SERRE ! 3 * SEDROR 0 
*TACSL,O 


SERRPC 
SERRPC 0 


“TAL! FAILED TO RESPOND” 


"NO DRIVE AVAILABLE” 


/PC 


/PC/ 


TACS/ 






. 
Oe 
are 


oo 
rary 
ruts 





b= b= bo Bp we 


e 


ru 
Cy} 





PRPAFATREA 
©OGOo6>6> 
SekanLonkenten) 
= 
SRE 
pee 
o 


z 





4 







4 
a Bas 
= 
eT = vaeer 
BITeS = SooniG 
BITOY = 
BITOS = 
BITO& = 000100 
E1108 = 
BITOS = 001000 
BIT1 = 000002 
BIT1O = 002000 
BIT11 = O04C00 
BITl2e = 010000 
BITI3 = 020000 
BIT14 = 040000 
BITES = 100000 
Ite = 000004 
BIT3 = 000010 
BIT4Y = 000020 
BITS = 000040 
BIT& = 000100 
BIT7 = 000200 
BIT8 = 000400 
BITS = 001000 
BLKLIM 013500 
BPTVEC= 000014 
BSBG = 000010 
BSFG = 000006 
BSFGSB 013336 
CHKADR 002002 
CHKDRV 002062 
CKSWR = 104406 
CR = 000015 
CRCERR= 040000 
CRLF = 000200 
CURDRV 1234 
DOISP = 177570 
DH1 016124 
DH10 016251 
DH2 tate 
DH201 16422 
DHe02 016437 
CHS 016176 
DHE 016234 


C LOGIC TEST (PART 1) 
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1148 
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No 
_ 
w 


tw. 


TALL BASIC LOGIC TEST (PART 1) 
DZTAAC.PLl 


Ss 


att 
Sn 


i 


oo0o0000r 


eeeceeeee 
Seneca 


MAINDEC-11-DZTAA-C 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1228% 
1324% 


1232% 
1342 


MACY1L1 27(732) 


1250 
1343% 


1255* 


1234% 
1337% 
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1273 


124S*% 
1340% 





1274# 


1248 
1349% 


1278% 


1257% 
2766 





2011 
e2ec8 





1296 


1268% 
2767 
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IOTVEC= 000020 6708 1002  1003% 

ITEMS2 001336 958% 

LEADER= 020000 69i# 1963 Sy 6 6eStC«éES’—t«‘ékz*ES 5136 2e03 ec34 2359 gaee 2417 862446 
24 S04 076 8693108 )=—s_ (331 3164 316 3191 3195 3220 e36 §8=—. 8358 

LF = = OOUD12 3426 = 3432 fer. 















MAXCNT 012116 1166% e2174% 2175 2176% #2177% 2900 2e32l# 2928 
MSGASK 015603 2991 37778 
MSGDRV 015570 2957 37758 
MSGID 001732 1038 1050% 1157 
MSGOK 015676 3038 37518 
I 015623 3014 37818 
MSGVEC 015613 3005 3779 
re 015635 3026 37838 
MT 015643 3029 37854 
MTAPRI 015663 3035 3789 
MTAVEC O156S2 3032 37878 
MYES 015704 3047 373928 
NEXT 012302 2967 1 297548 
NOTA 012260 2965 29688 
NOTB Ol2e7e 2969 297e8 
NOTLGL 012314 2962 2973 29798 2982 4 
013626 30693 3102 3125 3157 3185 3213 3188 
OFFLIN= 001000 6958 3349 
OK 14 1153. 11558 : 
PATTRN 013502 32eS8% 3264% 32728 3285 3296 
PC =%000007 S96# 1065 1068% 112e5% 1129% 11394* 2096% e21e5* 2199% 2725% 2728% 2735 2740 
e840% e884" 2910% e2913% 2938% e841 2983% 3049% 3069*% 3096% 3102% 3107% 3125% 
3130% 3151% 3157% 3166% 3185* 3190% 3213% 93270% 3289% 3313% 3329% 3361% 3400 
3407% 414% 34e8* 3430% 3524* 3765 
PIRQ = 177772 S828 
PIRQVE= 000240 676% 
PRO = 000000 55ca 
PRi = OO0040 6008 
PRe = 000100 6018 
PR3 = 000140 6028 
PRY = 000200 6038 
PRS = 000240 6048 
pas = 000300 6058 
= 000340 6068 
ES = 177776 5798 580 1161# 
PSUs = - 177776 vy) 
PURTEC ytit} fopee 1009% 3734* 3735* 3744* #$%(3750% 3762% 3763% 
pee West TR 
RDOCHR = 104407 3039 3583 37258 
ROLIN = 104410 2359 3447 37cbs 
RDOCT = 104411 2992 3006 3015 37278 
ROSUB Ober 733 3le0# 3124 3132 
READ = 000004 6808 4 1974 ecb! 2376 2383 2593 3297 
READY = 000040 6998 807 22 3 1204 2015 e021 2040 2046 2063 2078 2094 





800 8 82 
2102 ies 8i8) 8197 8223 Ge? cepa Cele cote ES exec este E577 
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e406 2435 e464 2493 2904 29384 3072 sl0S 3128 #3160 3188 #§$$yéié6 328i. 





3299 3345 
RESVEC= 000010 bbe 
REWIND= 000016 6858 799 821 1203 1994 2014 2062 2092 2143 2170 2218 2337 
2372 «6 P4HOl)=ss430—iSsiaBCCi2S3G&Ci‘iS7SGCiCiS9]Si2B] S257 )0=Ss«s2BSB)siCié2?707'—Sss=«*30711 
3104 3127 +3159 3187 3215 
RGPBLK 013156 735 31808 31 3192 3196 
RO =xo000000 S878 827% 1087 1090 1093 1099% 1124 1127 1131% 1133% 1136% 1137% 1138 
1139 s1141® = 114 1149% 1193% 1630% 1634  #1637% 1639 £1715* 1716 #£1718% 1723 
1735* 1736 1738 1743 1755* 1756 1758 1763 1775% 1776 1778 1783 1795% 
9 #1798 1803 1815* 1816 18i8* 1823 835% 1636 1938% 184 1855* 1985 
1858 63 1875*% 1876 878% 1883 2013% 2019 2038% 20 220% 225%  2339% 
es44e 2349% 235% 2374% 2379% 2403% 240 432% 2437% 2461% 2466% 2490%  2495% 
543% 544% 2550% 2551% 2611% 2619% 2535% 2638 1 2644" 661% 64 
2670% 2687% 2690 2693 2696% 2732% 2735 2826 286 2865* 2866% 2867% 2868 
869% 2870 2871 2875 2880% eB82* 2885 2889  e2960% 296 296 2966 2969 
7 2972 2974 2575 2990 2993% 2995 29 2998% % 
3012 3013 3016% 3018 3020% 3021% 3022 3023% 3024%% 3025 ###3040% 3041 3043 
3048% 3245* 3251% 3255*  3256% 3296% 33 3342 3383 3384 3385 3389 
3444 3448% 3451 3467% 3694  3695* 3696  3697% 3699% 3699% 3700% 373 3761% 
Rl =x000001 Sese 1175* 1176 1184 #+«+#$+§.%1187 1189% 1190 1632 1633% 1634  ##1716% 1717% 1719% 
1720 1721% 1722% 1723 1736% 1737% +%41739% 17490 1741% #1742 #+$1743 1756% 1757% 
1759% 1761 1762% 1763 #£1776%, 1777% 1779% 1780 #1781% 1782% 1796% 
* 1801* 1802 1803 816% 1817 1819 1820 821% 822% 1822 
1836% 1837% 1839% 1840 1841% 1842* 1843 1856% 1857x 1859% 1861% 1862 
1863 x 1879 1880 1881% i882x 1 2012% 2017% 2037% 2042% 2055s 
206S* 2074% 2080% 2243% e2249% 2258% 2264% 2273% 2279% 2288% 2294% 2303%  2309% 
318% 232c4% 2640% e641 666% 2667 692% 269 2827 46 963% 2966% 2970% 2977 
3278% 3283% 3303% 3304  3321% 3325 3327 3328 3340% 3341% 3344% 3345 
Hr 3349 =: 3351 3445 3449" 3453% 3455* 3457x 3460% 3463 346% 37 
Re =x000002 3 1631¥ 1637 1638 4«8©63295* 3301% 3446 3450% 3454* 3456% 3458% 3464  3465* 
R3 =~000003 590s 3579 #3580* 3581 358% 3 3589 3591 3593% 3595% 3642  3651%  3657% 
3658% 3661% 3666 3667% 3668 j#3677% 3739 #£3758% 
R4  =~000004 SSi# 1062 1197. 1152 «ss «154% 1155 3643 3645* 3646% 3647% 3648  3649% 
3665*  3573% 3676% 3740 #3757 
RS  =x000005 S528 * 8x 990% 992% 1062  1063% 1066* 1096% 1146% 3644  3650%  3652% 
3654* 3655* 3656% 3657 3675* 3741 3756% 
R6  =~000006 5938 35 996% 997% 998 
=%000007 94a 5% ; 
001202 880% 2901%  2902% 8 2929% 2930 294% 3841 
VPS 001204 8818 * 2917 2931s 
SETBUF 013370 3151 3245s 
BG = 14 684s 1990 er 2492 «Ss 2499tsi«é&2319 
SFFG = 000012 6838 1986 306 2463 2470 3218 
SFFGSB 013252 736 32088 3212 23 
=% S958 1000% 1018* 1026% 1030 1031 1221% 1226 1227% 1232 l244* 1249 1250% 
1255 1267% 1272 #£«©41273% 1278 1290 1295 1296s 01 1313% 1318 1319% 
1336 1341 13428 134 2766 2769 #2771 «2772 «#2«32800 2801 e280S* 2835 
* 4x P2882 PB8b# 01 2903 29178 2918% 2919% 2929 2931 2945s x 
| 2947# * 07 3016 027 30308 3033%  3036% 3048 3064 
3097# 31208 31Se* 3180* 3208 3360% 3383% 3384 + 3385* 3387 38 3389% 3391 
3393 3395 3403* OS* 3413" 3417 Wel Wee Bee B44ee [443% 44% 
3445" 34468 3448 3HSi# 3459" 3460 34 3463% 346 3466 3467 g4s QS 
‘ 4 3493% 3496% 3497% l* 350e* 3506 351 3515 3517 3S18% 
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3527 S29 9530. g532e 3533" 3534# 3635* 3536* 3551" 35524 3655* 355¢* 3567 
35618 35628 3563 3566 3568 (35708 36734 3664 (3695 3556% 36578 35424 3634s 
3635 496 3626 «= 637% «=b4ee «= 643 b44e «= 3650 )= 3675367626770 267Be §=60679% «= ES 
3695 3705* 3706* 37368 37378 3738 3739% 37408 3741# 3742% 3742 37S5is 
3756 4 469-3757 759 60 3761 3766 
STACK = 001100 soe" 1090 «=s«l22l)~=Sssdle44)~—SsédLBE?)=Sss1290's«d1313)si13GEsC“‘<i‘éz HY ©6897) si3120—i2SeEs“‘é8z«L 
START 002234 1156 4=s 11598 = 2741 ; 
STKLMT= 177774 Sélis . 
901142 787 gos 8598 998 1020 1022 1028 1042 1195 2761 2775 2777 2783 
2790 «28210 «2838084328470 3247)——s3251)0Sss3253 26D )0S 3264) 0S HE SCiCid3318—Ss«3853 
3355 3480 35178 3742 3755s 
SWREG 000176 7258 «1028 1042 1} 3260 3266 #3480 3493 
Spo = poooot Pls 634 
. | 
SWwOl = Booua2 be38 633 
SWO2 == 000004 bee8 83=s-: & 32 
SwO3 = 000010 b2i8 631 
SwOY = 000020 6208 630 
SwOS = popop 6198 629 
Su06 = 0001 6188 &28 
SuO7 = bi78 be? 
SWOB = 000400 ba 
a nn 
= 
| Silo = boepos Piis 
| SWi2 = 004000 6138 
SWl2 = 010000 bles 
| Suis = 920000 ells 
Sul4¥ = O40000 6108 
SwiS = 100000 £098 
SW2 = = - 00004 6328 
'Sw3 = OOO0IO0 6318 
‘Sa 8 
ics5 = 6238 
a8 s 6258 ‘ 
- 3 6278 
'Swa@ os 6268 
Tacs =<a50004 fis 787% «798s «799% §—B00OReB0g gorges goes 
li62e 1202 1203" 1204 12238 - 1229 1269% 1275 1362 1371 # ©1380 1389 
1398 1 1416 1425 1434 143 1452 14668 1467 1471 1472 1480" 148i 
1486 asa 14994 1498% 1499 1507% 1508 1513 1S2e0e 1521 1525" 1526 1S34#. 
1535 15 1547e 1548 15S52e 1553 iS6le 1562 1567 1574 1575 1579% 1580 
1588% 1 1594 601% 1602 i1606% 1607 1615* 1616 ibe 1629% 1632 1638% 
jeS6e# 1 1666% 166 1676% 677% 1 1687% 1688 16978 1698 1715 1720% 
3721 1735 17408 174 1755 760% 176 1775 =«-:1780® »«=«:11781)~=Ss«179S')~—Sss«éd8ODe §=._:«1 801 
isis si 167) 1 1 ig4i 1860 1861 1875 1880s 1881 1898% 
| igeoe 1663" [ees 1667) «9908 «1971 «ideas «© 7e~—stavee« 1a39—sdtoeeetge3s ieee 
1egy 13x ae 1994 eats tte bare baat 2024 #20368 2039% 2040 
# % & soe th tee 102 
il leis el 130% 213 luce age 14 1$1# 2153 16 170% 
21728 * 2190% 2192 el * el é 16% 2218 ele 222% 2223 2228% 
| eeese 1 ¥ C4be ssi2 ecS3* ait gee ee74e 8 2276% 2277 22e89% 
| ee9i# 2292 Ps * 2307 319% 2321# 232 * 2337% 2340% e34le 2342 


[ Saat Ano 
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2347* EM} ‘2950 .. ga3e 2359 A 37e# 2375% 2376% 2377 382 oe 2385 
2388 *# -2401% e404# e405* e406 411% e4le# e414 2417 e4eBs 30% e433% 
Cust cise 4O# - pant sia 446 457% Sos * e463 64 246 2470% 
ewe 2 86%  c4Bbs 91# Set 2493 e496% 2499% 2501  e2S04  eSi4# 2515s 
2516 ~ eS34# # S388 eS41# eSde# eS46 2S49# 2557 = eS 1# 
es77# e579 eS8le eS83e 2589" 2591 SP e596 e691 230% 2631%  2633# 
e636# ecb46#  ecbSb# sex e6S9# cbbet cb7e# ecb8et c683% ch8S* ecbB6# c698%  270b# 
e707# 2824 2904 e33e = e934 065% 3070 1# 3072 # 
3103# 3104 3105 3108  3lel# gleb* gle7# 3128 3131 3153# 158% 3159% 3160 
312% 164 3167 3181# 3186% 3187# 3188 3191 3193# 3195 3ei4#  3215# 
3216 «=—§« 218% §=3220)§8=—s ek 33*# «= 234# «= 3236S 279% = 32°81 7% 32978 3310 

TRCSH 001210 8638 1315# 132) 1699 1911 19e3# 3000 3001 

TACSL 001205 a 1 ll62 = e997# 30e?s 308S—ss3098=—ss St2l = 31830 3181 = 3209 3340 

TADB =x000005 7138 «66 80S#®)=6 82711638 «ie4%6# e529 8 12e92% 1298 1949" 2354 eSSb# % 2597 
esos ss 2b 11 2618 2619 c638% ecb4O cbb4# e666  2690% 2692 3066  3099% 
Slee 3154# 3182 32el0% 3ge8S# 3 

TAOBH 001214 B8Ss 1338 1344 3003 3004 

TADBL OOlele 884e 1163 2999 3003 3030 3066 3099 3le2 3154 3182 3210 

TAPRIO OOleee 8878 30eS*# 3036 

TOC 001216 6868 985 1155%  1160# 

TBITVE= 000014 6678 

TORV 002366 1177 11798 

TIMERR= 694s 

TKVEC = 6748 

TPVEC = 4 6758 

TRAPVE= 000034 6738  1006# 

TRTVEC= 000014 668s 

TR.REQ= 900200 6978 

TST] O0eS14 1e01 12198 

TST10 003316 133 3688 

TST100 007070 ig 

TSTi01 00713e 2293 8 

TST102e 007174 2308 1S¢ 

TST1G3 007236 5363 8 

TST104 007370 2360 

TST10S 007504 e368 862.389 

TST10& 007620 e337 2418 

TST107 e4 e447 

TSTil 1 13778 

TST110 Oi e476 

TST111 G10164 e484 §=©6¢S05 

fatils tM ese98 

TST113 O1 2532 2567 

ie Bes is Bi 

aie ey =p Ble 

TST117 010674 e65i8 

vere, 138 13868 

TST1 11 § 

it Bu 

BE comet 

i Mm et 

TSTiEg 05472 1417 14228 

TST17 003514 4e6 = «14318 


pn te ee en ee ae ee eo eee, 


} 
{ 
} 
i 
} 
i 
; 
} 
! 
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LOGIC TEST (PART 1) 





CROSS REFERE 


ae 


11868 §8=6©2731 468833) 284) = 286928722 2874 
979 «2991 )=—s(«3005—si01H = 90202 3032 = 3038 


li 
2 


TTwEg Oat ATM te bet es Bowe us aes thst at the BSB Baek 
77777 wm 0.00 OOwonr f+] oa tte — 
SAE ed ede tee edend ded ed edederdendend  ederdendexdesdede-deng extend cucury band 


aie Ea Moa OR TIEGEN BoPGLE Sea ondROMREG “23s eaRe 


OO kd a ad ad Od Hd dd a dd ad ad nd ond ad nd nd ad an Od od wd OO —rucutuT 


le4e8 
1435 
1us3 
1433 
1487 
1500 


GEESE Ssce cc sceEABEABD Gus ise ain aa RaBARE 


SPS REP: 2 YEE RY NOE Mpa SrBOS to BEESE EE 








a te eee ee 








4 
» 
os 
Eo 
i 
o-oo 
-—c) 





S 
on 
a 





$2 bs pe 


282 
S82 





ES 
a 
is 






REEEES 
il 





ae 
Soe 





e 





: 
: 





BB88 
ST 


aR ese 
ees 


ome 






ane = 
SCNTLU ii77 
11 
Sale 
Ber fii 
SE 11124 
SEOPCT 011152 
18 
Eee ft 
SERRPC 001116 
SERRTB 001236 
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gs 


a 


4 
wo 


ors 


oe 


33 
Pee eel 
—r 


: 
tS 


t: 


fa 
eoe 


SBRRARSg eS 
Heat 


: 


RSAARRRT tres 


ee 
— 


ae 


as 
Ww 


Resepy eee segs 


z 


S 
2 


Beas 


me Se OK 


Sere 
nt 
oe 
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3396 


3031 







3492 


3037 


2lel 


2246 


3495 


3494 


2151 


2341 


1321% 


1011 


1348 
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3508 


37188 


2172 


2348 


1344 


1012 


2879 


3845 
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3538 


5173 
5a71 
es92 
3163 
e663 


2229 


e583 


3397 













a Rs 
D 
Bg 
ba o4 
o> 

bape 


~4 
=) 
ois 


ferene 
eee 
SPB 


£& 
— 
8 

“ 

ae 
-— 
— 
w 
-— 
o 


3 
sssses 
2 


arzt 
BS 
i 


Fuleg fase 
: 


Bis 


SFSBeeeeeseee 
aaee 


boereecgifey 
Cc c 


=88 


es 


" 
o* 
= 

: 

3 

“S 





LOGIC T 


840 


naRecentae 


T (PART 1) 
CROSS REFERENCE 


Be 


RRERKLMERURESS 


WwW 
‘ 


TABL 


2834s 
10128 
2333% 


3401 


ae 
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SYMBOLS 
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2187% 


20gex 
2680% 


2035+ eli 
eS3ee 2575% cbe 


2010% 
e484 


1931# 
e4eb# 


1944# 


7% 2140% 
245S# “% 


ecbS4* 


2807 


1396% 140S* 1414 1423% 14328 1441 
ieass i7eax i7ede | T7538 

2213% 
c679# 
3101* 


2206s 
2802% 













~ 
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DetAAe Fi CROSS REFERENCE TABLE -- USER SYMBOLS 


seers. oes ee ee 1002 1004 100 00 1010 1911 1012 1014 1036 1033 e721 

= 2760 $04 2e46 3s BBS 4008 4008 

SSTUP = ir 9818 

ed teeuo ae ene 5 6 6 coy 7 74 1 

= 

"y wie" iB) Hees) Bae eS 1? 
ep ieee is dee? tet eld 1e3e dees iets ie lee e718 
ee 20 ale? ae ety alls GiB cles alee cele GA 2aes 
eb03 b18 26 ete e278 2704 ay 5354 74 740 erie 2751 e752 
§ et gob ah gcie 52/8 281 geet 838 Ze4 Hae e253 

SSWRMK= 000000 ae 2755 e756 

STIMES OO1I66 3¢@ #61011 tleede 12e43% le66% 1289% Ii13le% 1335% 1479% 1506 1533% 1560% #1587 
1614% % Bt 7% ex 2087% 2115% 138% 2165% 2186% e22le% 2241% 2256% 
e271 % 1s 316% e2331% 2366% 2395 e4e 2453% e2482% e2S11% 2530% 2573% 
* e6S5e% e678% e704# e2722% 2788% 2795 27398% 

STKB 001146 ¥ 3484 3501 se33 3561 

$TKS 001144 le HS 3482 3438 eee 3553 3559 

STN = O000l2c 4978 1216 leede 1239 le438 lebe leb6s i265 12898 1308 13l2e8 1331 
izse 1396 12808 1 1365 13698 1372 1374 13788 381 1383 13878 1390 
ea Ce a 
ie ie ie, ie i Gt, ie ey ie et ie 

a 
16018 1608 tate 16148 1 1768 1920. 1650 16548 1 1 Petts 1 
1670 16748 1679 1681 16858 1689 1691 16958 1699 1709 17138 1724 1729 
17338 744 1749 17538 1764 1769 17738 1784 1789 17938 1804 1809 18138 
1824 is 18338 1844 igi3 18538 1864 1959 18738 1884 1892 18968 1901 
1903 19078 19le 1914 19188 1925 1927 1931# 1938 1940 1944e 1951 1958 
pect 2o7es . ene ll 1158 sty 2l3e el 21388 ts tat 
eltSs 1g th 1868 2208 gill. 5413 2235 eetl# 2248 e252 e258 
gees 7 egeis sen Cech i gsr 2297 es0l# 2 gals 23168 
‘3e ls e3bbs 368 2389 2391 2395% 2 2418 e4 
gists Sea e449 e4S38 4ss 2476 2478 e4828 e505 2507 e511 
2567 ese 38 862575 2605 eble 2614 26188 

cbe2 eoSea 74 26788 2700 27048 


B 
BES 
Bag 
au 
SeSR 
FUruruED 





STPS 00 8638 3419 
STRAP 015322 1006 36948 
STRAP2 O1S344 37058 3716 
STRP = 000014 : 37188 
STRPAD 015356 3699 37168 
STSTNM See 8418 11738 
STTYIN Ol 3580 3581 
STYPBN= #42422 LU 37el 

STYPDS= ##e4e% UJ 37el 

STYPE 013776 33798 3709 
STYPEC O14146 3400 3407 
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INIT 7178 1475 i802 1529 1556 
Blok =| 5158 1386 ise 138188 134 136; 1410 1419s142@1437sIHMGSsGSO.sEO.S «670 
roca Size Nee 1489 151g 154315701597 

CONNEN 18 6778 7178 3056 3080 ile 3194 93171-03198 )= 3224 = 3240) 3273S 32903314 


ERROR S7is 1 1145 1 99 
123 ie ise i 1564, 1577 1 1591 1596 1604 #1609 1618 #1623 lea 
7 
1688 16 1680 1 E 1 Bg i728 1745 2 1 eS 1803 18e 18% 1865 1885 1306 
a ee a ee CR CMC 
t Gy> «Sens | Seng «=«SEig | S2dh «| SHER «| SeeG | SebL 5 28F 5e03 
ESCAPE ui? “pe “p33 rt: 5 read cate case ae 3305 3746 2187 221% #2333 2368 
2426 433) bere 2654 2680 
GETPRI le 6778 
GETSWR 6778 10398 
JUMP 7178 
MORETA 7178 880 
MULT ls 6778 
NEWTST le 677@ 1216 1239 «#41262 1285 1308 1331 1356 1365 1374 #=$1383 £41392 @«©61401 1410 
1419 «14288)~=Sss«a1437)—s—s«dwH4R:C<“‘«é‘id‘!SCté«dLK7SSC“(<é‘i‘«dLSHBQQD:«Cé«‘«*dLSOVD®s—“<éi‘édSIG«OC«édLSP:—Ci‘é‘dS:«SCsC«é«dLSSG&E~COC*‘«dLCS720 S83 ~=s«41597 
1610 1624 1650 1660 1670 1681 1691 #=$1709 #«&5$91729 1749) «61769 «68691789 «#391809 «61829 ~—Sfs«1 849 
1869 1892 1303 914 927 1940 1358 2003 ee 053 2068 2083 #2111 2134 # 2161 
2182 2208 7 229 e3le 32 3620s 2391 3S 420s 449—St—té'HU’77B 
2526 406 S69 )0SsiBOS «SiH ) =O ss ee )2Ssb4B O74 ~=—Sss 2700 
POP le 6778 36S 3 3756 
PUSH 1s 6778 3444 3736 3742 
RDONLY 7178 1708 1726 #£=$<174% #§£#:£‘1766 «31786 1806 # 1826 6 1866 
READYC 7178 2053 e068 2237 e252 2267 2282 2297 2312 
READYI 717% 2106 
READYS 7178 2003 2028 
REGADR 7178 ele 1235 1258 1281 +1304 #1327 
REPORT is £778 
ROMERR 7178 1966 1970 1974 1978 1982 1986 1990 1994 
SCOPE oye 121 124 1 1 13 1 1359 1368 4O4 861413 «142 
1431 153 ee 1 1 14 1273 is3e «=s«iS4&-=Stsi‘i‘éaSSS)~Cti‘é«dS73~C~C«‘«ISSB«Ctéi‘édtONSCté‘é«dAASLL 
1627s «1653ss«d16B3—StsédL*CGS 1684 1694 7le i73e 1752 1792 «= «i8ie =Ss(«saig3e=S's«édtS2~=—SséidL:'GS7#P2 
1895 1906 1917 1943 =: 1961 031 2056 2071 2086 2114 #2137 2164 2185 
2211 2240 sees 227 cess tie 2315 2330 2365 2423 e481 2510 2529 
2572 208 1 2651 2677 12703 #42720 
SETTRA 37098 3718 3719 3720 3722 # #4%3724% «$5372 #43726 3727 #«#«=8063728 ) 863729 
SETUP is 6778 373 
SKIP ls 6778 1 1381 1390 1399 1408 1417 1426 8§61435 1473 s«1487 
py tw fey ie len ey len lee Jet i se ese 
2025 bred 4 1 ie i 2c63 278 $3 : 2323 «= 283600 2389 
2418 2447 e476 SOS 2567 e612 2620 
SLASH 706 715 739 1211 1351 1355 1456 1461 1642 ~3§1649 


NS 
oO 
rons 
a 
r— 
& 
™N 
— 
@ 
wo 
_— 
® 
rT 
BE 
<£ 
fu 
5 
@w 
Tw 
_ 
@ 
— 
Tw 
wm 
at) 
Oo 
Ww 
oO 
wm 
oOo 
8 
ul 
<£ 


18 


-— TU 0 
Ras, oases 
be wow 

ee a 


= 
@ 


oN BE 
St Sf St Sk SE Om BF OT SS 
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507 


ea tats a 
S Sees reas 


re 


— 
— 
“I 
won 


~ 
wo 
-_— 
@ 


oy 
ui 


noes 


nw or 
NH 
=—norchvs 


Bass 
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686 
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N 
wo 
<= 


879 
es9 


— 
NOU ££ ie SJ 
OwWwOWO~—mwo 
O—UMOWOWO 

ee 
WOnNCuUICiwrD 
—-O0--Or--t) 

f£wowoorlwowo 

No = — TU UTI) 

ODMH Ne KOM 

PU 6 es Dee ee ee ee 

— DONCMUIC 


(ed a oes 
PEsORIGR 


AS.D.owo tooo 
QWONGMWN-£ wre 


3 


~ 


ay 


ONLWO)—WN-OOWW 


TOM ee ee 


Rin fory 
£o~ 

Ww 

at peta 
—-Owo0 





(7,3? 2 | | | 
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bethae Fil cnoes REFERENCE TABLE - haceo NAMES 
- SCATC le 64978 86717 
-SCNTA le 4978 8§=©6832 
. S0B2D ls 

- $0B20 1s 

-SOIV 1s 

. SEOP ls 4978 2709 
- SERRO le 4978 2808 
 SERRT 18 

ST 1s 

° lg 4978 3730 
- SRAND ls 

- SRDDE is 

- SRDOC les 4978 3432 
- SREAD ls = 4878 = 33470 
- SR2AZ ls 

- SSAVE ls 4978 

- $S82D it 

- $S820 ls 

- SSCOP ls 4978 862745 
- $SIZE ls 

-SSPRC 8=—s- 4978 

- SSUPR 28 

» STRAP ls 4978 3686 
- STYPB ls 

-STYPD ls 

- STYPE le 4978 3362 
- STYPO is 4978 3605 
- $40CA ls ; 
-1170 ls 













TAAC.P11 
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2947 
2264 


2998 
2279 





3012 
234 


3360 
239 
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3518 


3637 








BEQ 801 


GITUTUTUs—- 
eee 
— 
Tw -_ 





Bo 





i 











Baas 





ony 
wre 






= 
pager 


en 
48 
ti | 
eat 


: 
aati 


1472 


wrorre — 
SR isteentaiee at 


w 


aa 


wo 


Weorve Mr cocorsrunent= 
SREROP REE RB OES 


& 
fo 


Mee 


# 


°- 
fe 


nS 


aneyry 
o 


Down 










TUM 
—-OMuUIW 
Orr 00 
NUIO'O) 0 


TJ 
& 
i 
N 









TALL 
OZTAAC.P1l 


CLR 
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981 
1932 
e958 
‘4B 
ie 
3oe8 


983 


1065 


= 
& 


REGTOL VTP oe 
POO TNE fs bs be be pee 


SE 
3 


iF 
Rees: 


ruroru 


a 


bebe saat fant 


Alt 
Saar 
Gan 


oe 
Pow fe ht ps PS Pee Bs Fm bene fe Pe be 


peoyeoresy 


& 


—N) 
OL LCL 


wr 


RESSES 


furu 
Bs 
vs) 


 SoRSR RES RORRBARE 


yf 
oD 


S88 
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-~ 
w 


o 


tet titty 


POPOTU NIN he 
iatres 
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DZTAAC.P1! CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


MOVB 7 


Par 3561 3584 ## 3589 3635 3% 3639 
NOP 2736 38=— 2737 )=—s 2738 
RESET 819 1370 0=:1379-—ss«1388)=—Ss« 1397 
$39 1566 1593 1620 1655 1665 1675 
1834 | 1874 1897 1908 2009 2034 
sigs eel e227 >, ee = 7 2287 
243 ge, 249 e513 
2734 3100 3123 3155 3183 d3ell 
ROL el7e 0 6 eivylCU lO SCtCaSSC(iHNRSs—“‘i‘éED 
RTI 1027 eB80BCiiae8SB Oe e920 48S 3390S HEB 
RTS ess 8629983) 3049) 3270s: 3289)ss313 2S 3329 
3 te. 28 2930 
TRAP 3709. -_(33718)=Ss(s33719'i—si372D—Ci e274 972 
TST 1040 1093 1097 1142 1147 1164 
987 =: 1991 3 eit 8s. 2231 2356 
e792 e433 288g §= e981 3310 3347 
TSTB 803 BPS 81187 28350 2354 2546 2553 
ascir es 0 Ce 3318 833 3379 3419 
-ASCIZ 6 8 1050 1172 1183 2743 #82893 
3781 3783 3785 3787 3 3791 3732 
BLKB secs 3 3833 3836 3851 3855 3859 
- BYTE 841 B42 847 848 856 857 865 
3683 3684 
-DSABL 3540 
-ENPBL 1 497 3473 
-END 3863 
-ENDC 502 510 S54 S61 563 564 565 
741 745 781 784 792 795 813 
876 880 892 972 973 980 98 
1015 1016 1032 1036 1038 #104 1048 
1183 1208 lele 1214 1217 1218 1219 
1260 = 1eb3 Ss 26H 1265 le66 =: 1267 1283 
1311 = I3les13139s13e9sd332s 1333): 1334 
1361 1364 =61366 = («1367s «1368 =: 1369)—Ss: 1370 
1385 = 1986 )=ss«s1387)0Ss« 1388 =—Ss:1391 1393 13 
1406 1409 1411 i4le 1413 1414 1415 
1430 1431 1432 1433 1436 1438 14 
1451 1454 861458 8 146e = 1463 1464 1465 
te 149 492149 130) 1803 1504 
mm i ih oe i i ie 
1899 16 1601 1609 1611 161 le: 
1644 1650 1651 leS2 = 1653 1654 1655 
1672 0=—s«1673)s«d674H=—Sss«d67S—s—«i2BDD—C=éi 1683 


MACY11 27(732) 


1184 1203 
077-2092 
2306 = 321 
463 2470 
633 - 2636 
2%& 2970 
3285 3297 
3640 «(364 
1406 BS 
686 1696 
2058 2073 
2302 2317 
2533 4 -BSHD 
3231 
3655 «3656 
3523-3571 
3361 3430 
3726 3727 
1167 1191 
2385 2414 
3387 3395 
2557 2562 
3482 ©3498 
3603 3604 
3793-3796 
. 3962 
86 = 
S67 —s«OS71 
B16 = 835 
1000 ©1001 
1050 1053 - 
1220 = 1221 
1286 1287 
1335 1336 
1373-1375 
1395 1398 
1418 = 1420 
1440 «1441 
1466 1474 
1505 1506 
15441545 
1Se2 «1584 
1614 1615 
1659 1661 
1684 1685 
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1476 477 478 1479 
1$07 1515 1517 1518 
, 1546 1S47 1555 1557 
+15 1586 1587 158 

lbe 1625 1626 162 

L662 1663 1664 1665 
1686 1690 I 1693 
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MAINDEC-11-DZTAAR-C 


LOGIC TEST (PART 1) 


ete ten tet Sain 


CROSS REFERENCE TASLE -- PERMANENT SYMBOLS 


oc SREP Rope MRC ARATEOE 


NaGMMeReeetaes 8 KSESRRSRIST ARIS RRRBESE 
ISEERNECRARER 9  BLOUENS ENA RENAE SED 


os 
Zz Shodebatmeesagmtesetet teteteseseeee es 
WUUSION ARAN Yo gERPO UNE PED ER eATRTRRS 
ated 
mn 


SOUR FT GORA DwMoT 


G Bebeinshss snesaee goo 


A hd ad OG Oh dh og Oh Og HH 


C3 Beasiesess Sin oseeeaeote 


dG OO Od ad Od hd Od eH EH 


fUR Sung BereaaD 
Qo 


ee nd ouniom 


™ 

Sc Some 
nw 74 
RE GSESIS cucued 


~ 
: 
Sone: Lane AMES BY GEE smPRN ERENT REE 


SSUGMGT F TUN GON woo 


curcur. 0 


sae aaae Hie gs SSRIRCINC TSIEN 


hd 8 EO Oh eG Od Od eg oy Od he He 


{REESE RAC AOR ENRUB TOTS RR ERT ENEN sup URE RMU rR ga Ne age 


tt te UIC Ss kd a ad ad wd nd Od md ad Od a hd wd 


22 
RRS MEIER 
auc 


—UMmTnNT 000 


ne a ad a ad dd Ok Od Ok 9 Oo 


Pea aaaC Re vOmNRE gph metanns=aeereeny 


Ce eee hee hee ee nee hee hee hae bem ee eee eee oe ee hee hae ee he) 


otis 7 PAMCUOT ER EM ROSME RR ABREU URN EONAR STRAP GEERECNG 


Faure ak a kd rd a ad nd Od wd 9 


elie geommee CaN SSE eee 
SE SAAR SS RTA GOL OE UA DYER PROT BURSON SES Raa ADR 


ae ote eeratif Soe hem Kem Kee Kee hem hem hee hen fue len ke hat bee hem am hee het nee) 


PRON An Ue cure Onr RUM eRON GRE RE OSA SRE RTE Baa 


Se ee ee ee re cme eet dW 


EOE Mine RARE s aaok Ne 2 ae MR Ret a RTD Ph CEE ASE 


OF 8 8 8 oh wd wnt TIMMINS OO kd ad Od ak Od Od Od ad dd a Od de 


paren ph F his 4 bd 252.3 


LEE = 
Roo Seams 


2330 
Sap 
ev6 


sae 


-EQUIV 
VEN 
F 





| 
| 


Crna 
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TALL BASIC LOGIC TEST (PART 1) 


DZTAAC.P1l 


p= phe obs oh oh SA bo 4g 


SEASERCRRRCEN ERRR GROUSE RISEMBNE CARRE MD 
ESECCACSR RMGRMRSSIIERMIERMSUNNRANS 


p= th whe hk oh MAS 


SuUGMMMRRERGRENAMS “GUNES FanmouerGTe ee mss 
yuna eae unasenk Moneee 


3 
Hite 
PTL NT 
SUCPRREDES RRGRANSMAPRE SaeRRneas ema rR atanS 
RRR INS eee MESO Sara ne MS Si cise ape aN 
SEE USERS RES ER COMM RSET Seek mapa Ree aeR ROBE TSS 


WUGBM TT FM Ooo Doo 


SRRIRNTE TRE Re RRR MRR ET OR aM T Ris SEG Uae hegreeanaaage 
a8 


Mit iietescahkinichtitsttetgtastat 


Sepa tine it eu nes MET Ne LSS Tee Ate 
3 


PEE Ark Ge RAs OE PCURE aR EET 
SSeS EAR EER SRE ROE RADY a RUSE PUTIN RE Fae? 
URES RRSP MUSE SINT Onan rmana eae ara 


ia A eta Oe CAT, Berea Ue Ao EN 


pH ee pi i gt kl 


RCL RH MSR MOMRNNN AS KamNOR eR OOORET RS Tae eES 


pie pin oh oh A de tn 


Hee Ne aNRAS GRMnN es Sunt ioR Ron ARORS Rae geES 
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TAL] BASIC LOGIC TEST (PART 1) 


DZTAAC.PLi 








mad © SEheassnieey SOSGSURONEERR TRESS — ROSASIRERRRAGTS 
aiid © SSRReNSHeaES SPSoRAUCOO CR EMRRe «© ReERRPBREISETS 
Bia © BEGSENSECRRS SPSRERRSKEMCRMRUS | RRGRRDRECERSRES 
Bus PURE ROqunenenas SeMe Goes. 


BS URRSEREMESTRE BSSERPRSRESERARAER © BREMEgRYES a 


Oe 8 md Od eH Oe OGG eG OG eG od do 


BES GaRMRGRRUMGRRNG RGEREERSREERUMENR BER EReE REC EENES 


ead dd wd ee Oe es Ree ee ee ee eee rTuCruru 


RPRGSR Shara RBBRSTROReRCSS «© RESURTRGER RRS 


Ott ett te 4 Soe tee Dee Dee bee hoe hee bom | 


oa 
% 
Bag SNRARRRERARERRS SSOERDAGERMNSeMe — GauzebsaeTe DENS 


Pie SETANRMECRECE Re AeUguNsceE mURTES “anes 


pane ot 8 ke eh md wh 48 ed 


$25 POPRRER RSS SERRRTUERENEN Ne 6 Ch gRNoErE RN 


See hee ee hem hem bem hoe Lon | coe heme ee hen kom hem hem kon} 


Sie ReRMCec eects moaeeneeRetaaas! & Sxee ae 


end od od OG wd 4 od HO ioe ot AL 


SO OCTRTMUCRRSGONY SPERUERERRDERINGE ERPRRUOER EP ENE ES 


GREECE INRY HRARAECISERR SEE NR aR SERC RES 
RASSSSECSE GAEL PORRUSSSSPER RT SANUS TR SCE IER RY 
PGE DRA SES PHM IEREARSE SEER YF RAR ICIEOER SS 


te ts 


LIST 
- MACRO 
-MCALL 
-NLIST 


eS ne etn = ere mmm eS ane ate em ne ee ee me ee ee 
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OZTAAC.P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 
2614 2618 222 226 2648 2652 2674 2768 #2700 2704 #2721 2734 #2755 2854 2860 
eos ea e988 3050 305] 3052 3059 3083 3115 3137 3I74% 3e0l see? se43 8 3e76 
5 $3 pM: 3703 I IB IN ss (ie HCR CAS CNC 3727 

- PAGE ce 71 ? 791 Se 1051 1103 1206 «=—ss«1258 = 1351 1456 3=—s «1642 
1701 1887 41998 2178 220 e700 e745 e808 e860 2 es49 = 2S95 50 e 
3686 83730 33 

“Rept so? 715 723 739 871 970 =—s_ «1051 106911031206 = 1381 1456 =—ss«1642~—Ss«1701 
1887 1998S 2178 3059 

SSTTL. aoe 38¢ 677 717 726 738 791 816 892 970 994 032 
iwee ug? ive «ues tus Teo teoe Tee «152819 Ieee 1570 ssa sa? =e 
esq 1e80 1668 16 1681 leat 1709 328 174 176 1789. «1809 s«18e9)sCsé3B4s«1 86 
1892 ay ys] 4 Brae 1940 i335 ae _ 3 aa 2134 161 2182 
Soe Beea Bete Biv Bees Beng Ber sg Ms Seed Base 5361 
e3eS 2986 )2=Ss« 3080 3083 3115 3137 3174 # #+3e01 3227 3243 3e76 2293 S317 2 

TITLE ses 3432 = 3470 3688 3709 8=—. 3730 

- WORD is 725 840 843 B44 B45 846 849 8S0 851 852 853 8s4 8SS 

860 869 871 872 880 881 2706 2729 2741 NHeS B69 3685 3716 

3765 = 3787s 3840)0S B41 = 3843) 84S 84H 847 384 


#, DZTAAC. SEQ/SOL/CRF/PAGNUM/NL: TOC=DZTAAC.SML,DZTAAC.P11 

RUN-TIME: 55 71 9 SECONDS 
IME RATIO: 2817137=2.0 

CORE USED: (69 S) 


mr en ee a ee ee 


FOS 


wad t, 4%, +4 AA 4 
AES ENO oa ra 
oases b4-)=) hath 
BROROARONG 


++ 


BANNNNAL , rere Sr es 





